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NEUERDINGS HAT 
DER APPEL EINE 
BESSERE HALFTE 


OKI IST O.K. 


Zusätzlich beim MICROLINE 193: Druckbreite 
345 mm, Schallschluckhaube und serienmä- 
iger Traktor zur Verarbeitung von EDV- 
Endlos-Papier. 
Für Ihren Appel nur das Beste! Natürlich gibt's 
diese Köstlichkeiten von OKIDATA auch für 
alle anderen PC's. 
Sie wünschen so kurz vor Weihnachten 
detailliertere Informationen? Dann 
trennen Sie sich von dem Coupon, oder machen 
Sie sich schnurstracks auf den Weg zu Ihrem 
Fachhändler. Er weiß sehr gut, wie man Äpfel 
von Birnen unterscheidet und wird Ihnen schon 
zur Schönschrift-Qualität werden Ihrer Je deshalb gerne alles Gute über die Drucker von 
Phantasie durch den OKIMATE 20 kaum Grenzen u = OKIDATA erzählen. 
gesetzt, Zueinem Preis, der ihn zu einer der begehr- = f | - 
testen Früchte unter den Farbdruckern macht, bietet Coupon | 
er über 100 Farbabstufungen, ausgedruckt auf Nor- 












*Düsseldorter Mundart für einen bekannt hochwertigen Computer 






Rechtzeitig zur Äpfel-und-Nüsse-Zeit 
eine gute Nachricht für alle Appel-Freunde 
und die es noch werden wollen: Die 
Zeit ist reif für einen OKI-Drucker! 
Denn sowohl den OKIMATE 20 als 
auch die Hochleistungsdrucker 
MICROLINE 192/193 gibt es jetzt in 
einer Appel-kompatiblen Version. Lassen Ste 
sich von den appetitlich-leuchtenden Farb- 
möglichkeiten des OKIMATE 20 fas- 
zinieren, Natürlich in einer voll Appel- 
Scribe-kompatiblen Version. Für 
Grafik, Illustration und Text bis hin ae 
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Mit dem MICROLINE 192/193 bringen wir Sie 
auf den süßen Geschmack von High-Technologie: Kafka 
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10 Jahre Apple 


Man glaubt es kaum, aber vor exakt zehn 
Jahren wurde der erste Apple konzipiert. 
Wie Sie in der Mikrocomputer-Chronik in 
diesem Peeker nachlesen können, begann 
Steve Wozniak Ende 1975 mit der Kon- 
struktion des später als „Apple I“ bezeich- 
neten Bausatzes, der ab März 1976 erhält- 
lich war. Nach der Gründung der Firma 
Apple im April 1976 ging es Im Herbst mit 
der Entwicklung des „Apple II" weiter, der 
im April 1977 auf den Markt kam. In 
Deutschland dürften die ersten Apple-Il- 
Geräte allerdings erst ab Mitte 1978 erhält- 
lich gewesen sein. 

Aus Anlaß dieses zehnjährigen Jubiläums 
suchen wir im deutschsprachigen Raum 
die ältesten Apple-Il-Geräte, Wer besitzt 
noch einen möglichst funktionsfähigen 
Apple aus dem Jahre 1978 oder 1979 und 
schickt uns ein Foto mit einigen Anmer- 
kungen zu technischen Besonderheiten? 
Wenn Sie nicht sicher sind, ob Sie Besit- 
zer eines der ältesten Geräte sind, so tei- 
len Sie uns bitte telefonisch (Tel. 06221 / 
48 9352) oder per Postkarte das ungefäh- 
re Kaufdatum und/oder die Gerätenummer 
mit. Wir freuen uns auf eine rege Beteili- 


gung. 
Kurzumfrage 


Nach der Auswertung unserer Kurzumfra- 
ge aus dem September-Heft hat sich die 
prozentuale Geräte-Verteilung kaum ver- 
schoben. Lediglich der relative Anteil der 
Appie-Iic-Besitzer hat merklich zugenom- 
men. Die Zahl der Macintosh-Besitzer ist 
jedoch immer noch sehr klein. Dies bekam 
auch die Zeitschrift „Apple’s“ zu spüren, 
die dem Macintosh einen sehr großen 
Raum widmete und nunmehr zum Jahres- 
ende Ihr periodisches Erscheinen ein- 
stellte. 


editorial 


Interessant ist in desem Zusammenhang 
auch die „Bewegungsstatistik“: Soweit 
die Kurzumfrage eine Generalisierung zu- 
läßt, scheinen ehemalige Apple-Il-Besitzer 
eher zu einem IBM-PC denn zu einem 
Macintosh zu tendieren. Der Grund ist evi- 
dent: Der Apple-Il-Markt wird nicht nur in 
bezug auf die Macintosh-Werbung, son- 
dern auch in bezug auf die Zusatzprodukte 
zum Apple !| selbst völlig ausgespart. Man 
muß sich allen Ernstes fragen, wie man ei- 
gentlich diese Erweiterungen zu verkaufen 
gedenkt, wenn nicht einmal auf deren Exi- 
stenz hingewiesen wird. Die Zeiten von 
1976, als sich die ersten Freaks noch 
„selbst geworben“ haben, sind mit Ge- 
wißheit vorbei. 


Neue Rubriken 


Auch wenn der Peeker im nächsten Jahr 
das bewährte redaktionelle Konzept in be- 
zug auf die Fachaufsätze beibehalten wird, 
werden wir in Zukunft den Anfänger mehr 
berücksichtigen. Die neue Rubrik „Trai- 
ning“ wird Anfängerübungen zu verschie- 
denen Bereichen bringen, während in der 
neuen Rubrik „Grundlagen“ komplizierte- 
re Grundlagenthemen didaktisch aufberei- 
tet werden. Für das Januar-Heft ist 
beispielsweise eine sehr anschauliche 
Darstellung zum Thema „Wie funktioniert 
Quicksort?“ vorgesehen, während im 
Februar-Heft das „Binäre Rechnen mit 
Papier und Bleistift“ in einer leicht nach- 
vollzienbaren Art behandelt wird. 
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Rechtzeitig zu Weihnachten bringen 
wir wieder ein Action-Spiel für jung und 
alt (vgl. auch „Pyramid Pitty“ von 
Peeker 7/85). Das neue Spiel „Cosmo- 
Crumble“ der Autoren O. Steinmeier 
und A. Niemeyer befindet sich wegen 
der ungewöhnlichen Länge - wie sei- 
nerzeit „Pyramid Pitty“ — nur auf der 
Peeker-Sammeldisk, denn 10 Seiten 
Hex-Dumps können wir keinem Peeker- 
Leser zum Abtippen zumuten. 

Nach dem Booten von DOS 3.3 (oder 
besser Diversi-DOS) wird das Action- 
Spiel mit 

RUN COSMO CRUMBLE 

gestartet. Die Diskette muß danach 
noch im Laufwerk bleiben, weil aus 


speichertechnischen Gründen ver- 
schiedene Module nachgeladen 
werden. 

1. Die Spielidee 


Sie befinden sich auf einem kosmischen 
Schlachtfeld und sind in einen Hinterhalt 
der Cosmo-Crumbles geraten, die Sie auf 
zwei verschiedene Arten gleichzeitig at- 
tackieren: 

Die Bouncer versuchen in kamikaze-ähn- 
licher Manier Ihren mit einer Schnellfeuer- 
Laserkanone ausgerüsteten Raumkreuzer 
zu zerstören. Glücklicherweise sind sie 
unbewaffnet und somit nur bei Zusam- 
menstößen gefährlich. 

Der Hurrier hat sich eine sicherere Posi- 
tion ausgesucht. Er läuft unterhalb des 
Schlachtfeldes und schießt mit seiner 
Bordkanone quer über das ganze Feld. 
Dabei kann es vorkommen, daß der Hur- 
rier einen Bouncer trifft. Die Überreste des 
Bouncers verglühen langsam und hinter- 
lassen, wenn Sie sie nicht vorher abschie- 
Ben, ein gefährliches „Loch“ im Schlacht- 
feld, das von nichts durchdrungen werden 
Kann. 

Ihre Aufgabe ist es, sämtliche Bouncers zu 
zerstören. Haben Sie eine Ebene bewäl- 
tigt, so erwartet Sie sofort eine neue Crum- 
ble-Raumflotte in der nächsten Spiel- 
ebene. Leider sind die Cosmo-Crumbles 
sehr gute Kämpfer. Es passiert praktisch 
nie, daß sich einige Bouncers kampflos 
ergeben und man die nächste Ebene er- 
reicht, ohne sämtliche Gegner zu zer- 
stören. 

Ihr Raumgleiter wird durch Treffer des 
Hurriers, Zuammenstöße mit Bouncers 
sowie Berührungen mit „Löchern“ und 
vergiühten Resten beschädigt, so daß Sie 
und Ihr Schiff zwecks „Reparatur“ von 
einem kosmischen Krankenwagen abge- 
holt werden müssen. Nach fünf Aufenthal- 
te im Krankenhaus wird Ihr Raumschiff 
verschrottet, und die Schlacht ist beendet. 
Für jeden abgeschossenen Bouncer er- 
halten Sie 100 Punkte, für jede Spielebene 
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einen mit dem Schwierigkeitsgrad anstei- 
genden Punkte-Bonus von mindestens 
200 Punkten. 

Ein Bonus-Schiff erhält man nach 10.000 
Punkten, ebenso nach 20.000, 30.000 
USW. 

Das Spiel selbst hat 25 Ebenen, die aus 
unterschiedlichen Formationen mit stei- 
gender Schwierigkeit aufgebaut sind. Falls 
man alle 25 Levels bewältigt, beginnt das 
Spiel erneut mit Ebene 1, jedoch mit stark 
gesteigerter Geschwindigkeit. 


2. Das Titelbild 


Mit der Taste T (großes T) können Sie sich 
die TOP-FIVE-Highscore-Tabelle anse- 
hen. Nach einem Tastendruck kehren Sie 
zum Titelbild zurück. Wenn Sie die Taste H 
(Help) drücken, erscheint die erste Seite 
der sogenannten Help-Screens. Diese In- 
formationsseiten informieren Sie über 
wichtige Tasten und Funktionen des 
Spiels, um Ihnen das Nachschlagen in die- 
sem Aufsatz zu ersparen, wenn Sie einmal 
eine Funktion vergessen haben sollten. 
Mit der Leertaste (Space) können Sie sich 
die weiteren Seiten anschauen. Nach der 
letzten Seite kehren Sie automatisch zum 
Titelbild zurück. 


3. Definieren der Steuerungstasten 


Wenn Sie Cosmo-Crumble mit der Apple- 
Tastatur spielen wollen, können Sie vor 
dem Spiel die Tastenfunktionen selbst be- 
legen. Drücken Sie, wenn das Titelbild auf 
dem Bildschirm erscheint, die Taste K. 
Nun können Sie die Steuerungstasten für 
oben, unten, rechts, links, Feuer und 
Stopp selbst definieren. Nach der letzten 
Taste kehren Sie zum Titelbild zurück. 


4. Spielbeginn 


Um das Spiel zu starten, gibt es verschie- 
dene Möglichkeiten. Wenn Sie mit der Ta- 
statur spielen wollen, sollten Sie zunächst 
die Tastenbelegung wählen. Nach dem 
Einladen von COSMO CRUMBLE sind fol- 
gende Tasten vordefiniert: 

F-Feuer, 

I - aufwärts, 

J- links, 

K-- rechts, 

M - abwärts, 

Leertaste — anhalten. 

Um das eigentliche Spiel zu starten, wäh- 
len Sie nun eine der folgenden Möglich- 
Keiten: 

1. Leertaste: Das Spiel beginnt, gespielt 
wird mit der Steuerungseinheit, die zuletzt 
verwendet wurde (nach Programmstart 
stets die Tastatur). 

2. Ctrl-J: Das Spiel beginnt, es wird je- 
doch automatisch auf Joystick umgestellt. 
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3. Ctrl-K: Nach der Umstellung auf Tasta- 
tur (Keyboard) beginnt auch hier das Spiel. 


5. Möglichkeiten während 
des Spiels 


Natürlich kann man auch während des 
Spiels von Joystick- auf Tastatursteuerung 
und umgekehrt umschalten (wieder mit 
CtriI-J und Otrl-K). 

Mit der Taste ESC kann das gesamte Spiel 
angehalten werden. Nach Drücken einer 
weiteren Taste wird das Spiel fortgesetzt. 

Mit Ctrl-S kann man die Tonausgabe 
(Sound) ein- und ausschalten, und mit 
Ctri-R wird das Spiel beendet. 


6. Spiel mit Joystick 


Wenn man im Joystick-Modus spielt, kann 
man mit Pushbutton O einen Schuß ab- 
feuern. Mit Pushbutton 1 kann wie mit 
ESC das Spiel unterbrochen werden. 


7. Spiel-Ende und 
Highscore-Tabelle 


Nach dem Spiel-Ende erscheint auf dem 
Bildschirm „GAME OVER“,. Nach Return 
oder Drücken von Pushbutton 1 wird die 
Highscore-Tabelle geladen und angezeigt. 
Die Highscore-Tabelle enthält die fünf bis- 
her besten Ergebnisse und die Namen der 
Spieler. 

Die Eingabe erfolgt stets mit der Tastatur. 
Bei Eingabefehlern kann mit Hilfe der 
ESC-Taste die gesamte Eingabe wieder- 
holt werden. Nach dem letzten der 10 
Zeichen wird die Eingabe in die High- 
score-Liste aufgenommen und auf Disket- 
te abgespeichert (CC.LEVELS). 

Deshalb müssen Sie sich das Spiel von 
der Peeker-Sammeldisk auf eine eigene 
Disketie kopieren oder den Schreibschutz 
entfernen. 

Nach Tastendruck kehrt man zum Titelbild 
zurück, und ein neues Spiel kann be- 
ginnen. 


Kurzhinweise 


1. Zweck: 

Reaktionsspiel für Tastatur oder Joystick. 
2. Konfiguration: 

Apple Il+, Ile oder Iic (wahlweise Joy- 
Sıler)B OS 33 

3. Test: 

RUN COSMO CRUMBLE 

4. Ssammeldisk: 

COSMO CRUMBLE 
(Applesoft-Startprogramm) 

T. CC2 - T.CC6 

Tee 

(Big-Mac-Quelltexte) 

CC2-CC8 

CC.lEVERS 

(Maschinenprogramme und Tabellen) 
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Auf den folgenden Seiten sollen der 
Grund-Befehlssatz des Imagewriter-Druk- 
kers vorgestellt und Fehler des Handbu- 
ches berichtigt werden. Der Artikel be- 
schreibt ein Programm, das es ermöglicht, 
dem Drucker Kommandos zu übermitteln. 
Alles hier Aufgeführte gilt wahrscheinlich 
auch für den Scribe-Drucker, wenn eine 
Super-Serial-Card verwendet wird. Man 
sollte sich nicht wundern, daß in diesem 
Artikel zum Teil etwas völlig anderes als im 
Handbuch steht, aber leider scheint sich 
der Verfasser des Handbuches nicht ge- 
nug mit diesem Drucker beschäftigt zu 
haben. 


1. Anfängerübungen 


Wenn Sie nur geringe Vorkenntnisse ha- 
ben, so sollten Sie zunächst die folgenden 
Übungen Schritt für Schritt nachvoll- 
ziehen: 

1) Booten Sie mit PR#6 eine beliebige 
DOS-3.3-Systemdiskette, z.B. die Sy- 
stem-Master-Diskette. 

2) Nun befinden Sie sich im Applesoft- 
Modus. Legen Sie nun die Peeker-Sam- 
meldisk #12 ein und starten Sie das Image- 
writer-Demo, indem Sie 

RUN IW.DEMO 

(gefolgt von Return) eingeben. 

3) Es erscheint nun ein kurzer Erläute- 
rungstext, den Sie zunächst durch Tippen 
einer beliebigen Taste ignorieren können. 
Nun sehen Sie ein Menü mit 3 Optionen: 
1: Steuer-Sequenz eingeben 

2: Steuer-Sequenz speichern 

3: Ende 

4) Schalten Sie nun den Imagewriter ein 
(Power-Lämpchen muß leuchten). 

5) Tippen Sie „1“ für Steuer-Sequenz ein- 
geben. Es erscheint die Zeile „DRUK- 
KER:“. Sie sehen jedoch jetzt keinen blin- 
kenden Cursor, denn jedes Zeichen, das 
Sie nach „DRUCKER: tippen, wird als 
Dezimalzahl und nicht als sichtbares Zei- 
chen angezeigt. Tippen Sie nun erstens 
auf die ESC-Taste und danach zweitens 
auf die n-Taste. Nun müßten Sie am Bild- 
schirm die zwei Dezimalzahlen „27, 110“ 
sehen. Wenn dies der Fall ist, so schließen 
Sie die Eingabe durch gleichzeitiges Drük- 
ken auf die Offene Apfeltaste und die Re- 
turn-Taste ab. Wenn Sie sich vertippt ha- 
ben, können Sie durch Drücken auf die 
Del-Taste die jeweils letzte Dezimalzahl 
löschen. 

Nach dem Betätigen von Offener-Apfel- 
Return „ruckt“ der Imagewrriter, d.h. er hat 
die Zeichenfolge „ESCn", die für „weiten 
Zeichenabstand“ steht, empfangen und 
„sich bis auf Widerruf gemerkt“. Gleich- 
zeitig sind Sie wieder im Hauptmenü mit 
„1 Steuer-Sequenz eingeben“ usw. ge- 
landet. 
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6) Tippen Sie nur wieder „1“ und dann 
einige beliebige „normale“ Buchstaben, 
z.B. „AAAAA“. Danach wiederum Öffe- 
ner-Apfel-Return. Merken Sie sich bitte 
diesen Zyklus. Nachdem Sie „AAAAA" 
getippt haben, druckt der Imagewriter 
„AAAAA" in „weitem Zeichenabstand“. 
7) Geben Sie nun in einem erneuten Zy- 
Klus die Steuer-Sequenz „ESC N" ein, 
dann wieder z.B. „AAAAA", und Sie wer- 
den sehen, daß „AAAAA" jetzt im „nor- 
malen Pica-Abstand“ gedruckt wird. 

8) Wiederholen Sie den Zyklus mit „ESCZ 
Ctrl-G Ctrl-$“ und dann mit „AÖU“. Für 
„SC“ tippen Sie auf die ESC-Taste, für 
„zZ auf die Z-Taste, für Ctrl-G auf die Otrl- 
Taste und G-Taste gleichzeitig, für Ctr|-8 
auf die Ctrl- und $-Taste (Shift-Taste + 3- 
Taste). Nach „ÄÖU“ werden Sie statt 
„AÖU" die amerikanischen Zeichen 
„[|1“ sehen, d.h. Sie haben mit „ESCZ 
Cirl-G Ctrl-$“ auf den amerikanischen 
Zeichensatz umgeschaltet. 

9) Wiederholen Sie den Ihnen nunmehr 
bereits bekannten Zyklus mit „ESC D Citrl- 
$ Cirl-A“, gefolgt von „OO000“. Sie wer- 
den sehen, daß die Nullen von „OO000“ 
jetzt durchgestrichen sind. 

10) Zurück im Hauptmenü, legen Sie jetzt 
eine eigene Diskette ein und wählen Sie 
statt „I“ die Option „2" für „Steuer-Se- 
quenz speichern“. Danach wird das Dis- 
ketteninhaltsverzeichnis angezeigt, und 
Sie geben der Datei den Namen „NULL- 
SıRlcCH- 

11) Verlassen Sie jetzt das Programm über 
„sa Ende”, schalten Sie den Drucker aus 
und wieder ein, und starten Sie die Datei 
NULLSTRICH mit 

BRUN NULLSTRICH. 

Schalten Sie den Drucker mit PR#1 ein 
und tippen Sie 

PRINT „10000“ 

sie werden sehen, daß die Nullen jetzt 
durchgestrichen werden. 


Was lernen wir aus diesen Übungen? Mit 
IW.DEMO können Sie beliebige Steuer- 
Sequenzen für den Imagewriter auspro- 
bieren und als mit BRUN startfähige Initia- 
lisierungsprogramme auf der Diskette 
speichern. Ein solches Programm enthält 
jedoch immer nur die zuletzteingegebene 
Steuer-Sequenz. Sie können jedoch ins- 
gesamt max. 170 Steuerzeichen hinterein- 
ander eingeben, was für alle praktischen 
Fälle ausreicht. Die Steuerzeichen selbst 
können Sie der Tabelle entnehmen. Mer- 
ken Sie sich bitte, daß eine Steuer-Se- 
quenz so lange vom Imagewriter „befolgt“ 
wird, bis Sie einen gegenteiligen Befehl 
erteilen oder den Drucker ausschalten. 
Falls fremde (und meist geschützte) An- 
wenderprogramme keinen „reinen Tisch“ 
machen, bleiben die mit IW.DEMO initiali- 
sierten Werte bestehen. 
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2. Technisches zur Tabelle 


Wie im Handbuch erwähnt wird, gibt es 
zwei Arten von Ctrl-Codes: Steuerzeichen 
und Steuer-Sequenzen. Letztere sind Zei- 
chenfolgen, die meist mit Escape (ESC) 
beginnen, wobei die Resetfunktion eine 
besondere Stellung einnimmt: Sie stellt 
alle Standardeinstellungen, also den Ein- 
schaltzustand, wieder her. Sie sollte nicht 
in eine Kommandofolge eingebaut wer- 
den. Wenn dies aber unvermeidbar 
scheint, ist ihr ein Nullstring anzufügen, da 
sonst Schwierigkeiten auftreten könnten. 
Steuer-Sequenzen, die mit ESC D oder 
ESC Z beginnen, sind „Schalterfunktio- 
nen”; für einige können statt dessen die 
entsprechenden DIP-Schalter im Image- 
writer selbst eingestellt werden. 

Der Übersicht und Kürze wegen werden 
die Kommandos im folgenden stichpunkt- 
artig behandelt und in einer Tabelle zu- 
sammengefaßt: 


Seitenlänge: Seltsamerweise steht selbst 
im deutschen Handbuch eine Standard- 
einstellung für 66 Zeilen je Seite, was der 
amerikanischen Norm entspricht. Um mit 
DIN-Papier klarzukommen, sollte der 
Drucker jedoch auf 72 Zeilen je Seite ein- 
gestellt werden (SW 1-4). 


Zeilenabstand: Der Abstand aufeinander- 
folgender Zeilen kann in Schritten von 
144stel Zoll eingestellt werden. Zwei Stan- 
dard-Abstände sind als ESC-Sequenzen 
verfügbar. Mit dem Zeilenabstand ändert 
man auch die Blattlänge. Nur für 6 Zeilen/ 
Zoll ergibt sich eine Normlänge. 


Zeilenvorschub (LF): Die durch Befehl 
eingestellte LF-Richtung bleibt zwar bis 
zum gegenteilligen Kommando bestehen, 
gilt aber - im Gegensatz zu Änderungen 
beim Zeilenabstand für FF — nicht für die 
LF-Taste. Übrigens wird das Kommando 
für automatischen Zeilenvorschub nur an- 
erkannt, wenn vorher der Drucker mit ent- 
sprechendem Code für High-ASCI| (8-Bit- 
Code) vorbereitet wird, sonst passiert 
nichts. Nachher sollte man nicht verges- 
sen, ihn wieder auf 7 Bits zurückzustellen. 


Wagenrücklauf (CR): Das Zeichen für 
Wagenrücklauf ist normalerweise nicht 
nur, wie im Handbuch behauptet, Carriage 
Return (CR), sondern es werden auch LF, 
VT und FF als Wagenrücklauf behandelt. 
Schaltet man auf den anderen Modus, so 
werden LF, VT und FF innerhalb eines 
Textes ignoriert. 


Puffer-Überlauf: Hierbei ist nicht der Zwi- 
schenpuffer des Druckers gemeint, son- 
dern der Zeilenpuffer. Man kann damit das 
Verhalten des Druckers am Anschlag (Zei- 
lenende) einstellen. LF bei Pufferüberlauf 
bedeutet, daß er einen Zeilenvorschub 
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ausführt. Anders als im Handbuch be- 
schrieben, tut er dies nicht automatisch. 
Wählt man einen Zeichenabstand, der we- 
niger Zeichen in einer Zeile erlaubt, als die 
Druckerkarte zuläßt, so überschreibt der 
Drucker einen Teil der Zeile. 


Nullen mit Schrägstrich: Der im Hand- 
buch angegebene Code schaltet den ita- 
lienischen oder französischen Zeichen- 
satz ein. In der Tabelle ist das berichtigte 
Kommando aufgelistet. 


Rückschritt (BS): Es ist immer nur ein 
Rückschritt erlaubt, dem ein druckbares 
Zeichen, also kein Ctrl-Zeichen, folgen 
muß. 


Da es zu weit führen würde, alle Fehler zu 
besprechen, sollte man die Kommandos 
(auch den dezimalen und hexadezimalen 
Code) im Handbuch vor der Benutzung 
mit der Tabelle vergleichen, die hoffentlich 
nunmehr richtig ist. 


Eine Übermittelung der Kommandos an 
den Drucker mit PRINT in Applesoft erfolgt 
oft fehlerhaft, da der String verschlungene 
Wege zurücklegen muß. Enthält ein String 
Gtrl-D, so fühlt sich DOS oder ProDÖS 
angesprochen und „raubt“ alle Zeichen 
bis zum nächsten CR. Die Interface-Karte 
läßt ebenfalls einige Zeichen nicht passie- 
ren. Aus diesen und anderen Gründen ist 
es ratsam, Befehlssequenzen nicht auf 
dem üblichen Weg zu senden. Eine Mög- 
lichkeit bietet das Programm IW.DEMO, 
das schon oben in vereinfachter Form er- 
läutert wurde. 


3. Technisches zu IW.DEMO 


Das Programm enthält drei Unterprogram- 
me, die selbständige kleine Programme 
sind. 


Die Identifikationsroutine (Zeilen 
63000-63220) ermittelt die Gerätekonfigu- 
ration, und damit paßt sich das Programm 
der Hardware, auf der es gestartet wurde, 
an. So können alle Besonderheiten des 
spezifischen Rechners ausgenutzt wer- 
den, wobei man allerdings auf dem Apple 
Il oder II+ leider auf einige Optionen ver- 
zichten muß. Die erstellten, BRUN-fähigen 
Steuercode-Dateien sind dadurch eben- 
falls hardwarespezifisch, d.h. sie funktio- 
nieren meist nur auf der Rechnerkonfigu- 
ration, auf der sie erstellt wurden. 


Die Input-Routine (Zeilen 12000-122110) 
erlaubt jede Eingabe. Auf neueren Apples 
sind auch Low- und High-ASCII möglich. 
Auf dem Bildschirm werden die dezimalen 
ASCII-Werte angezeigt. Es wurde weniger 
Wert auf gute Editiermöglichkeiten gelegt 
als darauf, daß alle Zeichen akzeptiert 
werden. 
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Die Output-Routine (Zeilen 13000- 
13240) sendet Kommando-Strings direkt 
an den Drucker. Natürlich kann man auch 
Text senden. Ihr Vorteil ist, daß andere 
Karten eingeschaltet bleiben können. Da 
normalerweise nach dem String CR und 
LF gesendet werden, fügt die Routine die- 
se an. Ist das nicht erwünscht, kann der 
zusätzliche Einsprungpunkt (Zeile 13060) 
verwendet werden, Außer auf dem Apple 
IIc wird aus technischen Gründen vor je- 
dem String ein Nullstring übertragen. Stellt 
man Kommando-Sequenzen auf, ist zu 
beachten, daß Applesoft beim Äddieren 
von Strings leere Anführungszeichen (““) 
nicht beachtet. Als Nullstring sollte man 
CHR$(O) benutzen. 


Die Input-Routine ist als T.IW.IN und die 
Output-Routine als T.IW.OUT zusätzlich 
im Assembler-Quelltext gelistet, doch sind 
die Maschinenprogramme entbehrlich, 
weil sie vom Appiesoft-Programm IW.DE- 
MO automatisch gepokt werden. Die 
BRUN-fähige Steuer-Sequenz-Datei, die 
mit IW.DEMO erzeugt wird, liegt im Be- 
reich $0300 bis maximal $O3CF. 


MAmmlin Dun A 
rz ed u aWwü 
für Aufsteiger 


Mit ausführlichen 


Utrich Stiehl Programmbeispielen 


Apple ProDOS für 
Aufsteiger 


Band 1,2. Aufl., 203 S., DM 28,— 
Band 2, 208 S., DM 30,- 


von Ulrich Stiehl 


Dr. Alfred Hüthig Verlag 
Postf. 102869 :- 6900 Heidelberg 





Kurzhinweise 


1. Zweck: 

Initialisierung des Imagewriters durch mit 
IW.DEMO  generierbare, BRUN-fähige 
Steuer-Sequenz-Programme. 

2. Konfiguration: 

Apple Ile und lic (auch II+, jedoch mit 
gewissen Einschränkungen wegen der Ta- 
statur); Imagewriter, bei !le/+ mit Super- 
Serial-Card; DOS 3.3 oder ProDOS 

4. Test: 

RUN IW.DEMO 

4. Sammeldisk: 

IW.DEMO 

Applesoft-Programm 

T.IW.IN 

IW.IN 

T.IW.OUT 

IW.OUT 

(Big-Mac-Quell- und Objektdateien zu den 
gepokten Routinen) 

ECHO 

(Mit RUN ECHO starten zum Erzeugen 
eines 40-Z/Z-Bildschirmechos während 


des Druckens) 3 


Apple Assembler 
Tips und Tricks 


von Ulrich Stiehl 

2. Aufl., 226 S., 3 Abb., kart., 
DM 34, - 

ISBN 3-7785-1047-9 


Dr. Alfred Hüthig Verlag 
Postf. 102869 : 6900 Heidelberg 
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SCSe 


Apple ist ein eingetragenes Warenzeichen der Firma Apple Computer Corp. 





Electronic-Shop 

Friedhelm Mayer 

1000 Berlin 10, Spielhagenstraße 10 
= 030 / 3422156 


Menkens Elektronik 
Ulrich Menkens 

2870 Delmenhorst, Grünestraße 70 
= 04221 / 14591 


Holzinger Elektronik 
4000 Düsseldorf, Kölner Straße 16-18 
= 0211/3539869 


Electronic Shop Chr. Kaup 
4400 Münster, Bremer Platz 42-46 
= 0251 / 665887 


Müller —- Elektronik 
4410 Warendorf, Freckenhorster Straße 31 
= 02581 / 1767 


Gelsen Electronic 
4650 Gelsenkirchen, 
Kurt-Schumacher-Straße 124 
= 0209 / 83033 


Peeker 12/85 





Apple Ile Compatible 


jetzt mit 80 Zeichen Karte und 128 KB RAM 


MI 


NIORT-T- 





Es beraten Sie gerne Ihre Fachhändler: 


Heitmann Elektronik 
4750 Unna, Gerhard-Hauptmann-Straße 20 
®02303 / 12436 


Computer-Technik 

P. Schillhofer 

4905 Spenge, Niedernstraße 12 
& 05225/3184 


Sebus-Elektronik 
5100 Aachen, Pontstraße 119 
=: 0241/36898 


Räbiger Computersysteme 
5160 Düren, Veldener Straße 65 
=02421/43877 


VID DATA SYSTEME 
WEISING KG 

5483 Bad Neuenahr - Postf. 933 
= 02641/1478 


MiCom-Computer Olaf Mertens 
5630 Remscheid 11, 

Grünenplatzstraße 16-18 

= 02191/590313 


MicroComp GmbH 
6200 Wiesbaden, Klarentaler Str. 6 
= 06121/45377 











Technische Beschreibungen der Geräte siehe Testbericht „Peeker 10/85” 


Neben bestem Fachservice bieten wir Ihnen ebenfalls 
Apple Ile + II+ Interface Karten + Zubehör in bester High-Tech Qualität. 


Händleranfragen erwünscht unter Tel. 02191/50041 


Dontenwill GmbH 
7000 Stuttgart 1, Kronprinzenstraße 6 
& 07117/294665 


electronic + computer 
GRIGENTIN + FALK 
7580 Bühl, Haupistraße 17, 
= 07223 / 21170 


Dontenwill GmbH 
8000 München 2, Landwehrstraße 40 
= 089 /597993 


Thönnes Elektronik 
8000 München 70 
Fürstenrieder Straße 206 

= 089 / 7148285 


Computerstudio Landshut 
8300 Landshut, Bismarckplatz 18 
= 0871/28275 


ALPHATRON 

marco hildebrandt 

8520 Erlangen - Luitpoldstraße 22 
= 09131/22600 


in 


ESC R xxx ce ! 27,8 .nı1n,6 
(lB-52 hih.e) 


Zeichen Wiederhol. 
(xxx mal c) 














Control-A 
‘ Normaleinstellung nach dem Einschalten (Spalte N) 
: dezimale Ziffer (z.B. xxx = 132) 

: dez. ASCII von x (z.B. -—> nnn = 49,51,5®)} 

: hexs ASCII von x (2,B4:—> hhh = 31,33,32) 

: Zeichen und ASCII (z,B. A -> dez. 65 bzw. $41) 


Rückschritt 8 (98) 


{nur einfach) 


tH 


! 
| 
| 
! 
! 


! 
| 


Schreibrichtung Zr, ze m;mnmm.—cc— 














Beschreibung ! Tasten I Dezimal (Hexadezimal) ! N 


Zeichenabstand (Zeichen pro Inch) SW 1-6,1-7 


Links nach rechts | ESC > | 27,62 (1B,3E) 
Beide Richtungen I! ESC < 1727.00 (1B.36C) 


Weit (9) | ESC n I 27,118 (18B,6E) 
Pica (18) I ESCN I 27, 7& (1B,4E) Zeilenabstand —— 
Elite (je), TBesck I 27, 69 (1B,48) 
Halbeng (13.4) 1 ESC e 7 227.101 1B,65) 
Eng (15) IL ESC q Fr 27.113 (18.71) 6 Zeilen pro Inch ! ESCA ! 27,65 (1B,41) 
Sehr eng (17) I ESCOQ I 27, 81 {1B,51} 8 Zeilen pro Inch ! ESC B ! 27,66 (1B,42) 
| ! | 
Proportionalschrift -----——----- 1------- Abstand (xx/l44)" |! ESCT xx I 27,84,nn (1B,54,hh) 
| (xx = 1 - 99) ! 
Pica prop, I ESCp | 327 212 1B270N 
(144 Pkt.p.Inch) I | 
Elite prop. I ESC P ! 27, 80 (1B,5ß) Zeilenvorschub 
(169 Pkt.p.Inch) | | 
| 
= LF {Line Feed) Kta ! 18 (BA) 
nn, a ESC Ss x 27 len (lB73.n) 1 VT (Vertical Tab)! }K ı 11 (BB) 
, FF (Form Feed) DEE ı 12 (6C) 
ee Abstand I ESG x 27.0 (lB.h) _ Mehr fach-LF | 31,n (IF,h) 
‚Zeich.in Elite ! | 
ee | ! wa 


s.Handbuch) 
Fremdsprachliche Zeichensätze SW 1-1,1-2,1-3 


LF-Richtung 


Amerikanisch I BESC 2 TG 18 ! 27,99,7,8 (1B,54,87,90) vorwärts 27,162 (1B,66) 
[| oder | rückwärts ! F27,114 (15,72) 
(IESC zZ tE 18 ! 27,90.5,0,27.68,2.0 | | 
I ESC D fB f$ ! (1B,54A,985,09,1B,44,92,09) Auto.LF nach CR |! SW 1-8 
| ! ein ! 27,68,128,® (1B,44,89,9ß) 
| Britisch ı BSC 2 ID 18 I 27,90,.4,0,27,68,3.0 aus | 27,98,128,® (1B,5A,89,99) 
| | ESC D IC 1$ ! (1B,5A,94,09,1B,44,93,®) 
| | Auto,CR ein |! ! 27,188,48 (1B,6C,3ß) % 
Deutsch I ESC z tc 18 ! 27,99,3,8,27,68,4,0 nach LF aus | ! 27,188,49 (1B,6C,31) 
| I ESC DD f$ ! (1B,5A,93,60,1B,44,94,9®) 
| ! 
Französisch I ESc z TA TS! 27.90,1.0.27,68,6,9 Randeinstellung 
I ESC D fr f$ ! (1B,5A,61,00,1B,44,06,99) 
| | 
eiwadssch I ESC Z 1B 18 ! 27,90,2,0,27,68,5,8 Momentane Position! ESC ar ,.llen(1B,/6) 
| ESC D tE #8 | (1B,54,92,09,18,44,05,06) als oberen Rand |! 
ı | 
Ttaliönisch | ESC Z TF 18 ! 27,90,6,0,27,68,1,8 Linken Rand auf ! ESC ! 27,76,nnn (1B,4C,hhh) 15) 
| ESC DA 18 ! (1B,5A,ß6,99,1B,44,91, 09) Zeichenposition |! 
| XXX Setzen | 
Spanisch I ESCD1G 1$ ! 27,68,7,8 (1B,44,07,09) 





Nullen mit Schrägstrich Zeilenabschlufß 
Zeilenende ! 
nur bei CR I ESCZ 8 18 ! 27,98,64,8 (1B,5A4,48,0®) 
bei CR,LF,VT,FF ! ESCDS SS ! 27,68,64,8 (1B,44,49,90)x* 


mit Schrägstr.({ß)! ESC Ss ta, 27,68, 


De 8,8,1 (1B8,44,298,01) 
ohne Schrägstr.(O)! ESC 2 %8 TA I 27,98.8.1( 


1B,5A,88,81}) 















Text hervorheben == 


w.. 


i = 
Unterstreichen ein! ESC X 27,88 \1B,08] a = ı = 5 nr nn, ee 
aus! ESC Y | 27,89 (1B,59) r a wenn nu 
) | 

Fettdruck ein ! ESC |! iı 217,08 (Erz) Datenbytelänge SW 

aus ! ESC " 727,84 (1B,22] “ 

. 8 Bit ! 27,98,0,50 (1B,5A,90,32) 

Überschrift eume! IN ı 14 (dE) 7 Bit ! 27,68,0,5® (1B,44,89,32)« 

aus ! 70 ı 15 (dF) “ 





| Apple DOS 3.3 - Tips und Tricks 


Die völlig überarbeitete dritte Auflage (mit neuer Begleitdiskette) erscheint Anfang 1986. 


| Dr. Alfred Hüthig Verlag - Postfach 102869 - 6900 Heidelberg 
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IW.DEMO 

118% REM IW.DEMO VON THORSTEN SCHUNK, 1985 

11818 TEXT : PRINT CHR$ (21): HOME 

11928 I = $:L = ®:PCMD$ = "": REM MEISTBENUTZTE VAR. 
ZUERST DEF. (GESCHWINDIGKEIT) 

11936 GOSUB 63668: REM RECHNER-CONFIGURATION ERMITTELN 

11648 D$ = CHR$ (4): IF NOT PRODOS THEN D$ = CHR$ (13) + 
D$ 

11958 GOTO 1490 

12808 REM x»** PRINTER INPUT ROUTINE x#** 

1218 REM IN: (AIIE) ;OUT: PCMDS 

12828 REM USES: I,L,P,PCMD$ 

128368 PRINT : PRINT "DRUCKER: '';: CALL - 868 

12848 PCMD$ = "":L = G$ 

12050 POKE 512,44: POKE 513,9: POKE 514,192: POKE 515,16: 


12868 
12078 
12089 
12999 
12108 
12119 
12129 
12138 
12146 
12159 
12169 
12179 


12188 
1219 


12280 


1221® 
13989 
13819 
13829 
13038 
13948 


13959 
13069 
13078 
13088 
13998 
1318® 
13119 
13128 
13139 
1314 
13159 
1316® 


1317 


1318 


1319 


13208 


13219 


13220 


13239 
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POKE 516.251: POKBb 517,173: PORE 518,0: FOKE 
519,192: POKE 528,141: POKE 521,16: POKE 522,2: POKE 
523,44: POKE 524,16: POKE 525,192: POKE 526,96: REM 
TASTATUR-ABFRAGE 

CALL 512:P = PEEK (528): REM ASCII-CODE HOLEN 

IF P = 255 THEN GOTO 12148: REM DEL 

IF P = 141 AND NOT AIIE THEN 12219: REM EINGABE-ENDE 
PÜRR TI,TITr 


IF PEEK ( - 16287) > 127 THEN 12219: REM EINGABE 
BEENDEN IIE,IIC 

IF PEEK ( — 16286) < 128 THEN P = P - 128: REM LOW 
ASCII 

IF L= > 178 THEN 1208698 


PCMD$ = PCMD$ + CHR$ (P):L=L +1 

PRINT P", ";: GOTO 126g 

REM DELETE 

IF NOT L THEN 12189 

P= 9: IF RIGHT$ (PCMD$,1) < > "" THEN P = ASC { 
RIGHT$ (PCND$,1)) 

FOR I=BT02+(P=>1ß) + (P= > 189): PRINT 
CHR$ (8);: CALL - 868: NEXT 

L=L-1: IFL= ß THEN PCMD$ = "": GOTO 12069 
IF L< $ THEN PCMD$ = "": PRINT "ABBRUCH": GOTO 
12218 

PCMD$ = LEFT$ (PCMD$,L): GOTO 12P69 
PRINT : RETURN 

REM *»** PRINTER OUTPUT ROUTINE xxx 

REM ZU DRUCKENDER STRING IN PCMD$ (MAX. 
REM IN: PCMD$, (S#LINE 13146} ;OUT: — 
REM USES: I, PSET, PCMD 

REM ES IST RATSAM, DEN DRUCKER AUF 'LF AM ANSCHLAG! 
(27,68,32,®) EINZUSTELLEN, DA DIES NORMALERWEISE DIE 
ESG TUI 

PCMD = 1: REM +CR (WIE PRINT) +LF (WIE (S)SC) 

REM ZUS. EINSPRUNGPKT. (WIE '?;') 

IF NOT PSET THEN GOSUB 13139 

IF LEN (PCMD$} > 178 THEN PCMD$ = PCMD$ + PCMD$: REM 
STRING TOO LONG ERROR 

FOR I = 1 TO LEN (PCMD$): IF MID$ ({PCMD$,I,1) 
THEN POKE 888 + 1,8: NEXT : 
POKE 808 + I, ASC ( MID$ (PCMD$,I,1}): 
STRING IN DRUCKERPUFFER POKEN 

IF PCMD THEN POKE 888 + 1,13: POKE 8ß1 + L,18:I=1I 
+ 2:PCMD = ß: REM LINE 988 

POKE 868 + 1,255: CALL 768: RETURN : 
SETZEN UND SENDEN 

REM MASCHINENSPR.-ROUTINE EINRICHTEN 
REM A2C,SSC,SC(U.U.STREG, TDREG,RDY) 
REM AUF RICHTIGE WERTE SETZEN 

REM PSET AUF @ ZURUECKSETZEN, FALLS PAGE 3 BENUTZT 
WIRD 

IF NOT SSC AND NOT SC THEN PRINT : 
"UNTERPROGRAMM NICHT BENUTZEN": PRINT 
VARIABLEN ZU BESTIMMEN!": POP : POP : STOP 

I = 768: POKE I,216: POKE I + 8,8: POKE I + 19,168: 


178 ZEICHEN) 


NEXT REM 


REM ENDMARKE 


PRINT 
"OHNE VORHER 


FOKRE T + 712,185. PURE -T + 14,1927 P0kk 1 + 015,178: 
POKE I + 17,288: POKE I + 18,249: POKE I + 19,189: 
POKE I + 28,33: POKE I + 21,3: POKE I + 22,21: FOKE 
I + 23.255 

POKE I + 24,248: POKE I + 25,6: POKE I + 26,153: 
POKE I + 28,192: POKE I + 29,232: POKE IL + 30,208: 
POKE I + 31,236: POKE I + 32,96: POKE I + 33,255 

IF A2C THEN POKE I + 1,234: POKE I + 2,162: POKE I + 
3,192 7 556: POKE T # 4,352: FORE I + 5,209. EIKE IH 


6,194: PORE I + 7,162: POKE I + 9,254: POKE I + 
11,55C #* 16: POKE I + 13,137: POKE I + 16,89: POKE I 
+ 27,136: GOTO 13249 

POKE I £ 1,141. FOKE T # 2,6: PORE I + 5,193: FORE I 
r 4,169: POKE I + 8,9: PÜKE I + 6.170: POKE I +7,32 
IF SSC THEN POKE I + 9,192 + SSC: POKE I + 11,SSC «+ 
16: POKE I + 13,137: POKE I + 16,16: POKE I + 
27,136: GOTO 13249 

IE SG THEN EIKE T #29,192 © SC FORE CL # 11,56 # 16: 
FORE T 4 15.1527 POKE I + 16,128. FORE I +. 27,.128: 


GOTO 13119 | 


13249 
14909 


14919 
14929 
14939 
14946 
14959 
14ß6B 
14079 
14089 


14899 
14199 
1411® 
14129 
14136 


14149 


14159 


14169 


14178 


14189 
14196 
14208 
14219 
659 
6501# 
63020 
635850 
63H 


65059 


B3B6H 


63979 
63989 


63999 
63198 
6311# 


63128 
63138 


63149 


6315% 
63169 


63170 
63189 
6319ß 
63290 


63219 
GI22B 


drucker 44 


IF TDREG AND STREG THEN POKE I + 13,STREG — 49152: 
FÜRE 1 +27, TDREG = 48152, ROKE I #16 ,.5DY 





PSET = 1: RETURN 

REM *** HAUPTPROGRAMM *#*%* 

REM STELLT 3 UNTERPROGRAMME VOR 

IF COL8ß THEN C8 = 1: COL8® = Ö :REM 897/Z 

hier desaktiviert 

IF C8 THEN COLB® = 1: PRINT 

HÖME : PRINT 

PRINT "DIESE IMAGEWRITER-UTILITY STELLT": PRINT 
"DREI UNTERROUTINEN VOR: '!" 

PRINT : PRINT "- DIE PRINTER-INPUT-ROUTINE" 

PRINT "ES WERDEN ALLE LOW-ASCII-";: IF AIIE THEN 
PRINT : PRINT "UND MIT DER SOLID-APPLE-TASTE": PRINT 
"AUCH ALLE HIGH-ASCII-" 

PRINT "ZEICHEN ALS EINGABE AKZEPTIERT.": IF AIIE 
THEN PRINT "DIE DEL-TASTE LOESCHT DIE LETZTE 
TASTE.": PRINT "OPEN-APPLE-"; 

PRINT "RETURN BEENDET DIE EINGABE." 

PRINT : PRINT "- DIE PRINTER-OUTPUT-ROUTINE" 
PRINT "SIE SENDET JEDEN BELIEBIGEN STRING'": PRINT 
"DIREKT AN DEN DRUCKER." 

PRINT : PRINT "- DIE COMPUTER-ID-ROUTINE" 

PRINT "MIT IHR KANN DIE RECHNERCONFIGURATION": PRINT 


"ERMITTELT WERDEN, DAMIT": PRINT "ALLE PROGRAMMTEILE 
KORREKT ARBEITEN" 

PRINT GET A$: HOME PRINT "SIE KOENNEN JETZT 
STEUERZEICHEN'": PRINT "EINGEBEN, DIE JEWEILS 
LETZTE": PRINT "STEUERZEICHENSEQUENZ LAESST SICH": 
PRINT "UNTER EINEM DATEINAMEN IHRER WAHL': PRINT 
"ABSPEICHERN": PRINT : GET A$ 

HOME : PRINT PRINT "1 STEUER-SEQUENZ EINGEBEN": 
PRINT : PRINT '2 STEUERSEQUENZ SPEICHERN": PRINT 
PRINT "3 ENDE": PRINT : GET A$: ON A$ < > "1" AND A$ 
< > lat AND A$ < > "34 GOTO 14156: ON AS = "Z" GOTO 
14188: ON A$ = ''2" GOTO 14179 


PRINT : PRINT "EINGABE MIT (OFFENER-APFEL-)RETURN": 
PRINT "BEENDEN": GOTO 1419% 
IF PSET THEN PRINT "DIE DATEI KANN SPAETER MIT BRUN 


NAME": PRINT "GESTARTET WERDEN": PRINT : PRINT 
D$; "CATALOG": INPUT "NAME:";FILE$: PRINT 


D$; "BSAVE"FILE$S" , A$3@0ß,L"I + 33: GOTO 14159 


TEXT : PRINT CHR$ (21): PRINT DS"PR#Q": HOME : END 
GOSUB 12896: REM GET INPUT 
IF PCMD$ < > "!"" THEN GOSUB 13ß@ß: PRINT "0.K.": REM 


STRING AN DRUCKER SENDEN 

PRINT : GOTO 1415® 

REM *** COMPUTER ID x*%* 

REM SETZT AIIE, A2C, COLS®, SSC, SC ABHAENGIG VON 
HARDWARE 

REM UND FRODOS JE NACH DOS-VERSION 

AIIE = B:A2C = B:C0L8ß = B:SSC = B:SC = P 

IF PEEK (64435) = 6 THEN AIIE = 1: REM 
IDENTIFICATION BYTE FUER IIE 


IF ATIE AND PEEK (64448) = ß THEN A2C = 1:C0L89 = 
1:55C = 1: GOTO 63119: REM IDENTIFICATION BYTE FUER 
TC 


IF INT ( PEEK (49932) / 16) = 8 THEN COL8® = 1: REM 
SÖCOL-CARD IN SLOT 3 

FOR SLOT 1.707 

IF INT ( PEEK (49164 + SLOT » 256) / 16) = 3 THEN 
GOSUB 63139 

NEXT 

IF NOT SSC AND NOT SC THEN PRINT "DRUCKER-KARTE 
NICHT ERKANNT!": PRINT : PRINT "BITTE REMS NACH DEM 


"COMPUTER ID! LESEN! POP 2 STOP 


IF PEEK (978) = 198 THEN PRODOS = 1: REM REENTER DOS 
VECTOR 

RETURN 

IF PEEK (49163 + SLOT &» 256) = 1 THEN SSC = 


SLOT:SLOT = 7: RETURN : REM SUPER SERIAL CARD 
IF PEEK (49163 + SLOT « 256) = 88 THEN SC = 
SLOT:SLOT = 7: RETURN : REM ALTE SERIAL CARD 

RETURN 

REM ANMERKUNGEN, FALLS DRUCKER-KARTE NICHT ERKANNT 
WURDE 

REM ZEILEN 6397® BIS 6314® LOESCHEN UND DURCH EIGENE 
ROUTINE NACH FOLGENDEN ANWEISUNGEN ERSETZEN 

REM SSC UND SC AUFGRUND DER STATUS- UND 
TRANSFER-REGISTER DER DRUCKER-KARTE BESTIMMEN 

REM SSC = N, FALLS STREG = $CN89 UND TDREG = $CN88 
REM SC = N, FALLS STREG = $CN84 UND TDREG = $CN8B 
REM WOBEI N DER DRUCKER-SLOT IST 

REM FALLS DIE KARTE ANDERE AUSGABESTELLEN BENUTZT, 
So IST SC=N , STREG UND TDREG SIND AUF DIE 
ENTSPRECHENDEN WERTE UND RDY AUF DEN 
'DRUCKER-BEREIT'-WERT DES STREG ZU SETZEN 
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IW.IN 


Bereits in IW DEMO als Data-Statements enthalten 


A306: AA 


B3BA: AB 19 


B3ßdC: B9 89 CA 


dsÄF: 49 19 


311: DS F9 


0313: BD 21 93 


B316: C9 FF 
A318: FB d6 


B31lA: 99 88 CD 


0307: 29 BO cl 


55 


TAX 

JSR INITCARD 

FIN 

LDY #$1@xSLOT 
TRANS DO SG 

LDA STREGSC,Y 

EOR +$80 

ELSE 

LDA STREG,Y 

DO ARC 

EOR #$59 

ELSE 

EOR #819 

FIN 

FIN 

BNE TRANS ‚nein 

LDA BUFF,X ‚Zeichen 

CMP _ &#$FF ‚Ende? 

BEQ RETURN ld 

DO sc ‚senden 

STA TDREGSC,Y 

ELSE 

STA TDREG,Y 

FIN 

INX ‚nächstes 

BNE TRANS ‚stets 
RETURN Rs 
BUFF DFB $FF 


‚Drucker 


‚Offset 
‚fertig? 


; Endmarke 


Ab $6321 befinden sich später die Ctrl-Zeichen, die 


über IW.DEMO eingegeben worden sind, 


ı ORG 39290 

2 * 

ö * Tastatur direkt abfragen 

En = 

5 KBD EQU SCOPßd 

6 STROBE EQU $cöld 

7 PUFFER EQU $#219 
B2B0: 2C Bd Cd 8 ENTRY BIT KBD 
B283: 18 FB 9 BPL ENTRY 
9285: AD BB CO 18 LDA KBD 
a2B8: BD 18 82 11 STA PUFFER 
B2BB: 20 19 CB 12 BIT STROBE 
B2dE: 69 13 RTS 
IW.OUT 
Bereits in IW.DEMO als DATA-Statements enthalten 

ai ORG $P308 

2 * 

3 * IW-Output-Routine 

4 * 

5 A2C EQU 8 

6 eis EQU ® 

f SLOT EQU 1 

8 

9 


* 
SLOTCX EQU $cdds 


d31D: E8 
B3lE: DO EC 
Tel B32B: 6% 
alte Sc.|\ #321: FF 
‚Drucker 
;SLOT-ROM 


19 INITCARD EQU $CPd+SLOT«$1ÖB ;Einsprung 


1] INIT2C EQU $C2C8 
iz STREG EQU $C989 
13 TDREG EQU $C988 
14 STREGSC EQU $CB84 
15 TDREGSC EQU $CPsp 


17 * 
300: DE 18 ENTRY eEB 
19 DO  A2C 
28 NOP 
a LDX #$Cd+SLOT 
22 JSR INIT2C 
23 LDX #508 
24 NOP 
25 ELSE 
n3B1: 8D 86 Ch 26 STA SLOTCX 
#304: A9 90 27 LDA +$90 


MMU 2.0 
Memory 
Managements 
Utilities 

für die Apple lle 64K-Karte 
DOS 3.3 (und ProDOS) 


von U. Stiehl 


1984, Diskette und Manual, DM 98,- 
ISBN 3-7787-1023-1 


Bei der Version 2.0 der MMU’s sind 
die Utilities teilweise so umgeschrie- 
ben worden, daß sie sowohl unter 
DOS 3.3 als auch unter ProDOS lauf- 
fähig sind. Da dies nicht immer mög- 
lich war, sind zusätzlich zu den reinen 
DOS-Hilfsprogrammen, speziell den 
RAM-Disk-Drivern, einige reine Pro- 


»TIe Int 
‚Status-Reg, 
‚Transfer-Reg,. 
;‚Status-Reg. 
‚Transfer-Reg. 


BILDSCHIRM-ECHO 


Mehrere Peeker-Leser haben bereits angefragt, wie man 
beim Imagewriter das Bildschirmecho während des Druckens 


einstellt. Dies ist nicht ganz einfach. Falls ein Apple Ile 
mit Super-Serial-Card in Slot 1 benutzt wird, kann man 

IIe ein 49-Z/Z-Echo mit folgendem Miniprogramm erzeugen, 
(Es setzt Bit 7 von Speicherstelle $ß7F9, Siehe 


‚Index 
:Init Port 
: Index=ß 


‚II/IIe/II+ 
;Enable 


NEXT : CALL 788 


DOS-Utilities aufgenommen worden. 
Insgesamt enthält die neue „MMU 
2.0"-Diskette über 25 Programme, 
die neue Einsatzmöglichkeiten für die 
Extended 80 Column Card (erweiter- 
te 80-Z-Karte = 64K-Karte für den 
Apple Ile) erschließen. Ein Teil der 
Programme laufen auch auf dem 
Apple Il Plus, doch ist „MMU 2.0" 
primär für 64K-Karte-Besitzer ge- 
dacht. 


Im einzelnen umfaßt „MMU 2.0" 


— Drei RAM-Disk-Driver für DOS 
3.3: „INIT 62" benutzt nur die 
64K-Karte als RAM-Disk, „INIT 
78" benutzt zusätzlich die Mother- 
board-LC als RAM-Karte und 
„DOSMOVER. INIT 62" gilt für den 
Fall, daß sich das DOS selbst in der 
Motherboard-LC befindet. 


Eine sehr nützliche Pseudo-Co- 
processor-Uiility, die das Hin- und 
Herschalten zwischen zwei Pro- 


"Super Serial Card Manual", S. 53.) 
Beim Apple IIe mit den neuen ROMs funktioniert auch 
ein 89-Z/Z-Echo, us 


18 DATA 173,249,7,9,128,141,249,7,96 
28 FOR X = 788 TO 788 + 8: READ Y: POKE X,Y: 


gramm-Modulen ermöglicht, von 
denen sich das eine Modul auf der 
64K-Karte befindet. 


Zwei schnelle Kopierprogramme 
(für DOS 3.3 und ProDOS). 


Mehrere Move-Programme zum 
Verschieben von Daten auf die 
64K-Karte sowie auf die Language 
Card und umgekehrt. 


Mehrere Hilfsprogramme zum Un- 
tersuchen und Löschen bestimm- 
ter Speicherbereiche der 64K-Kar- 
te und der LC, zur Ermittlung des 
Softswitch-Status usw. 


Zwei Simulator-Programme zum 
Simulieren von Apple Il und Apple 
II Plus auf dem Apple Ile. 


Gerätevoraussetzung: Apple Ile mit 
64K-Karte oder IIc 


Hüthig Software Service, 
Postfach 10 28 69, 
D-6900 Heidelberg 
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Jetzt purzeln die Preise! 
ZUSATZ-KARTEN: 


V-24-Schnittstelle .......-.--- = Bietet hr a DE SREeReheRrn ar TE 
80-Zeichen-Karte m.Softswitch Be - EK Abivethulle RE ernnnenn 98,- 
JoyStickDelixe „cc 59,- Accelerator 3,5 MHz .......-.- 9750,- 
a Ineemas ee een WOO= PALKAFE „unse 110,- 
RGBKarte 22222 ser seen 239,- lEEEABE....- ..-.- mar mmeneRn 0 
Koppler de SDR OR: WEFTE SH 325,- Z80 BKarte mit Software .....». 919,- 
Centronics-Karte von Epson für Graphik... . 210,- für Text....145,- 
none Schritte für 2 Drucker gleichzeitig. BEI K SELRFRRRRRERE 129,- 
Super-Eprommer 239 

belegt keinen Siöt, incl. Software für 2716-27128 .ecccccnenn. BD 





FDC 4 für alle „‚Floppy;Controller arnrraTaraTaraTe 159 
Leerplatine wie oben incl. Promu.Eprom u... nennen 98,- 
| Erphi-Controller ..................... 298,- 
Drucker-Spooler 64 kB, 240, 


Preh Commander Keyboards 


Wir bieten Ihnen.die Preh-Qualität auch für Apple. AK 88 Spez. mit Gehäuse, An- 
schlußkabel, Zehner-Tastenfeld, dt. Zeichensatz, Sondertasten für 

Ctr-Codes und Rechanfunktionen er EEE 339, - 
Preh Commander Keyboard, frei programmierbar 

bis zu 10 Ebenen, pro Taste bis zu 250 Zeichen .....4csu22... 599, - 





TEAC 3V 2 Fa ED = En 


Speicherkapazität 1 MB, (formatiert 640 6 jetz Ni 





TEACFDSSAVIx40 Track .... 395,- TEACFD5S5SBV2x40 Track .... 460,- 


TEACFDSSEV1x80 Track .... 445,- TEACFDSSFV2x80 Track .... 449,- 
Apple®-kompatibles Laufwerk incl. Gehäuse + Kabel .......... 22... 3999,- 
320 KB Laufwerk für IIc ................. 948,- 
640 KB Laufwerk für IIc................ 1088, - 
. EPSON DRUCKER 
EPSONFXBD .....uuuuur un O,- EPSONFXI100 .. 2222220000 2159,- 


EPFSONRABO .„...uurenuren 109- EPSONRXBOFT .....ucur.». 1295,- 


Die Microfloppy mit Zukunft: 


Speicherkapazität: 2 x 1 MByte formatiert: 2 x 
540 kByte. Anschlußfertig mit PROM-residentar 
Patchsoftware für CP/M 2.2, Apple DOS 3,3, DI- 
versiDOS 2-C, 4-C (DD MOVER,), Apple Pascal 





1.1, Pas ascal1.2,P DOS 1.0.1, 
Bupre zum Bean Sa 1598 vr 
Low Power Version oc cnuueenn > 
10 ft B Wincheste 20,P 
it Ü a, el, r Pro-DOS, 
en Confidier und Gehäuse - 2:22.4.; : = > = hd = ST 3990 > 





Sonde u 
none Lau! für it+ Ile 339 
ind. Kabel, GRNASBR Nun ee jetzt nur en 


Gesamt-Preisliste anfordern! Preise inclusive gesetzlicher Mehrwertsteuer. 
Händlerpreisliste bitte schriftlich anfordern! 


UVEDING electronics 


Holtewiese 2 DFÜ 02373/66877 
5750 Menden 1 Tel. 02373/63159 








MERLIN 


von Glen Bredon 





Der professionelle Macro-Assembler für 
die Apple Il-Familie! 

Neben allen Standard-Features bietet 
MERLIN u.a.: 


EM komfortabler Editor mit globalen 
Such- und Ersetzfunktionen 

liest und schreibt DOS 3.3 Text- und 
Binärhles 

unterstützt 6502- und 65C02- 
Opcodes 

beinhaltet eine Bibliothek mit fertigen 
Unterprogrammen 

enthält einen Disassembler mit eige- 
ner Label-Bibliothek 

kompatibel mit vielen 80-Zeichen- 
karten und natürlich mit Apple //e 
und Apple //c 


Neu; deutsches Handbuch! 


ISBN 3-89058-024-6 DM 198,-- 


Bei Ihrem Apple-Händler, in guten Buch- 
handlungen, oder direkt vom Verlag: 


Pandabooks, Teltower Damm 168, 
D-1000 Berlin 37, (030) 815 80 69 


EEE Em Em EM EM Beteloupor WDR B MM EM 


Nome indessen 
Anschitie  eeeee 


“za kraakenenrknueieekeeneennenennkenantngengendnenenenenen 









OÖ V-Scheck liegt bei (spesenfreie Lieferung) 
OÖ per Nachnahme (zzel. DM 3,- Versandspesen) 


__Ec MERLIN &DM198,- 
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ASCII-Texte ım 
HGR-Bildschirm 





Mit einem Zeichengenerator-Programm 


von Markus Geltenpoth 


Das nachstehend beschriebene Pro- 
gramm, das aus zwei Modulen besteht, 
dient 

1. zum Generieren eigener Zeichensät- 
ze für die HGR-Grafik, die hinsichtlich 
des Bit-Musters den Zeichen des 40- 
Z/Z-Zeichensatzes entsprechen, sowie 
2. zur simultanen Wiedergabe von Tex- 
ten des 40-Z/Z-Textbildschirm-Spei- 
chers auf der HGR-Grafik-Seite 1. 


Viele Apple-Il-Besitzer haben sich sicher 
schon oft darüber geärgert, daß man beim 
Apple II keine eigenen Zeichen definieren 
kann. Deshalb habe ich ein Programm na- 
mens ASCII.EDITOR geschrieben, das es 
erlaubt, bis zu 224 Zeichen selbst zu defi- 
nieren. 

Ein weiteres Modul namens COPY.TEXT 
tastet später den Text-Bildschirm ab und 
überprüft bei jedem Zeichen, ob es einen 
Wert größer 32 hat. Wenn dies zutrifft, 
sucht sich das Programm den Speicher- 
platz des dazugehörigen, selbstdefinierten 
Zeichens und speichert es im Hires-Bild- 
schirm ab. Wenn der Wert des Zeichens 
im Textmodus kleiner als 32 ist, wird der 
Hires-Bildschirm an der dazugehörigen 
Stelle nicht verändert. Alles, was Sie also 
normalerweise auf dem 40-Z/Z-Textbild- 
schirm sehen würden, wird statt dessen 
automatisch auf der Hires-Seite angezeigt. 


1. Das Applesoft-Programm 


Das Applesoft-Programm ASCIIEDITOR 
wird benötigt, um einen neuen Zeichen- 
satz zu definieren oder einen alten umzu- 
definieren und dann auf Diskette zu spei- 
chern. Man hat die Möglichkeit, den Spei- 
cherbereich der zu erstellenden Zeichen 
zu löschen oder ihn so zu lassen, wie er 
gerade ist. Letzteres gestattet, alte Zei- 
chensätze vor dem Start des Programms 
einzuladen und diese vom Programm aus 
zu verbessern. Es wird dann jeweils vor 
dem Definieren das schon erstellte Zei- 
chen am Bildschirm gezeigt. Zu diesem 
Zweck ist auf der Peeker-Sammeldiskette 
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der Zeichensatz-File ASCII.CODES auf- 
genommen. 

Das Programm ist menügesteuert und er- 
klärt sich von selbst. 


2. Das Maschinenprogramm 


Wie schon erwähnt, kopiert die Maschi- 
nenroutine COPY.TEXT die Zeichen des 
Textbildschirms auf den Hires-Bildschirm. 
Wenn man also seine selbstdefinierten 
Zeichen sehen will, muß man 1. das Ma- 
schinenprogramm und 2. den File mit den 
definierten Zeichen eingeladen haben. 
Dann kann man mit „CALL 768“ parallel 
zu den Zeichen im Textmodus die selbst- 
definierten Zeichen in die Grafik-Seite 1 
übertragen. Nach dem Einschalten der 
Grafik mit HGR kann man mit „POKE 
-16302,0“ auf Hires über den gesamten 
Bildschirm umschalten. 

Sicher werden Sie sich fragen, warum ich 
nicht mit indirekt indizierten Befehlen ar- 
beite, sondern den „unschöneren“ Weg 
der erheblich längeren Routine gewählt 
habe. Das hat seinen guten Grund: Da das 
Programm immerhin 8K kopiert, muß man 
schon auf die Geschwindigkeit der Op- 
Codes achten. Durch die direkt-indizierte 
Adressierung gewinnt das Programm 
wertvolle Millisekunden. Das macht sich 
dann bemerkbar, wenn man den Input- 
Vektor auf das Programm richtet. 


3. Zusätzliche Hilfen 


Um nicht immer „CALL 768“ eintippen zu 
müssen, kann auch der Zeiger des &- 
Kommandos mit folgenden Pokes auf den 
Programmanfang des Maschinenpro- 
gramms gesetzt werden: 

BOKE 1014.02 PORE71013 3 

Nach diesen Pokes wird immer nach Ein- 
gabe des &-Befehls der HGR-Bildschirm 
aktualisiert. 

Noch eleganter ist es, den Keyboard-Vek- 
tor KSWL (Adresse $0038, $0039) auf den 
Programmanfang zu richten und am Ende 
des Maschinenprogramms aus dem 


„RTS“ ein „JMP $FDiB“ (Input-ROM- 
Routine KEYIN) zu machen. Von Applesoft 
aus kann das folgendermaßen geschehen: 
POKE 917,76: POKE 918,27: POKE 
919,253 

(Änderung des RTS in JMP $FDiB) 
POKE 56,0: POKE 57,3: CALL 1002 
(Einbinden des neuen Vektors in DOS 3.3) 
Die letzten 2 Pokes und der CALL-Aufruf 
müssen unbedingt in einer Zeile hinterein- 
ander eingegeben werden. Danach wird 
Ihnen zunächst noch nichts Besonderes 
auffallen, aber wenn Sie auf HGR um- 
schalten, werden Sie sehen, daß jetzt der 
Text-Bildschirm immer automatisch ko- 
piert wird (siehe hierzu TEXT.COPY- 
DEMO). 


Kurzhinweise 


1. Zweck: 

Erstellung eines eigenen Zeichensatzes; 
Kopieren des 40-Z/Z-Text-Bildschirms in 
den HGR-Bildschirm. 

2. Konfiguration: 

speziell für Apple II+ (ggf. mit Klein- 
schreibumrüstsatz) gedacht, aber auch mit 
Einschränkungen auf Hle und IIc einsetz- 
bar; hier werden jedoch die Kleinbuchsta- 
ben ($40 ff.) nicht korrekt konvertiert. Not- 
behelf: Nach FLASH werden Großbuch- 
staben als Kleinbuchstaben auf dem HGR- 
Bildschirm ausgegeben. 

Nur DOS 3.3 

3. Test: 

RUN COPY,TEXT.DEMO 

4, Sammeldisk: 

ASCIL.EDITOR 

(Applesoft-Zeicheneditor) 
COPY.TEXT.DEMO 
(Applesoft-Demoprogramm) 


TEOEr TER] 

(Big-Mac-Quelltext) 

BORLIIEXT 

(Maschinenprogramm zur Übertragung 
der Zeichen) 

ASCII.CODES 4 
(Zeichensatz-File) = 
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GRAFik 1.4 





Speicheraufteilung 383: A9 34 85 LDA #$34 
0385: 8D 31 03 86 seh Porz 
$0306-$2397 Maschinenroutine 1 388: AY 38 87 LDA +$38 
$0399-$93B7 Maschinenroutine 2 (für ASCII.EDITOR) D3B8A: SD 37 03 88 STA P7+2 
S6hdh-$670B8 Selbstdefinierte Zeichen Ö38D: AY9 3C 89 LDA #$3C 
AZ8sF: 8D 3D d3 99 STA P8+H2 
COPY.TEXT #392: 20 SF FF 91 JSR IOREST 
#395: 60 92 RTS 
1 ORG $3B8 A396: EA 93 NOP 
2 * 9397: EA 94 NOP 
3 x Markus Geltenpoth 95 * 
4 * 95 x Statt des RTS und der 2 NOPs 
5 * Dieses Programm kopiert Zeichen 97 _ » kann bei Benutzung des Input- 
6 * vom Text- in den Hires-Bildschirm 98 * Vektors der Befehl JMP KEYIN 
7 * und lädt dabei für jedes Zeichen 99 * benutzt werden. 
8 * aus dem Text-Bildschirm ein Zeichen 1006 * 
9 * aus der Tabelle ab $6ß0ß, 1l x* Neue Assemblerroutine: CALL 921 
18 * Ab dieser Adresse werden von dem 192 x Diese Routine zerlegt ein Byte 
gu] * Zeicheneditor selbstdefinierte 163 x in seine Bits, 
12 * Zeichen gespeichert, da * 
15 * #398: BB 185 BYTE HEX 88 
la 21 EQU $6BB0 0399: AC 98 93 1®6 LDY BYTE 
jo 22 EQU $6PBEP B839C: AY 48 197 LDA #+7B1000000 
16 25 EQU $S1CA 39E: 8D 98 B3 188 STA BYTE 
17° 24 EQU $62AB | B3Al: A2 B6 189 LDX #86 
18 285 EQU 96389 B3A3: 98 118 LOOP1 TYA 
19 26 EQU %6469 B3A4: 2D 98 93 111 AND BYTE 
28 27 EQU $654d B3AT: 9D BL 3 112 STA B1ls,Xx 
21 28 EQU 36629 | D3AA: AE 98 85 113 LSR BYTE 
22% B3AD: CA 114 DEX 
25 * Zl-28 sind die Anfangsadressen AZAE: 1% F3 115 BPL LOOPI 
24 * von A24 Bytes. Sie stellen die A3B6: 59 116 RTS 
5, * verschiedenen Zeilen eines il7 EBITs DS 7 
26 * Zeichens dar | 118 & 
27T %* 119 % Zusätzlich kann auch der &-Vektor 
28  IOSAVE EQU $FFAA | 128 x» (Adresse $3F5-$3F7) auf das Programm 
23 IOREST EQU $FF3F 121 x gesetzt werden: 
30  KEYIN EQU $FDIB 122 x» $3F5 = $aC, $35F6 = $Bß, $3F7 = $03) 
3 * 
B30B: 20 AA FF 32 JSR IOSAVE 184 Bytes 
B303: AR BB 33 LDX #$8® ‚Zähler 
B3#5: BD BB dA 34  LOOP LDA $409,X ; Zeichen 
PaB8: 38 55 SEC ASCII.EDITOR | 
B399: E9 208 36 SBC #$28 | 
B30B: SB 31 Sr BCC LASSEN 1880 REM ** ASCII.EDITOR VON MARKUS GELTENPOTH xx 
B3BD: AB 38 TAY ‚retten 1816 PRINT CHR$ (4) ;"BLOAD COPY,TEXT" 
Ö3ßE: BY BB 6B 39 LDA Z1,.Y 1828 LOMEM: 26624: PRINT CHR$ (21) 
Ö31ll: SD Ad 28 49 Fl STA $2888,X 1838 DIM A{B8) 
B314: BY EB 68 41 LDA Z2,Y 1848 HOME : PRINT " ZEICHEN-DEFINITIONSPROGRAMM" 
#317: SD BB 24 42 P2 STA $24B0,X 1858 VTAB 3: PRINT "MIT DIESEM PROGRAMM KOENNEN EIGENE 
B31lA: BI CH 61 43 LDA Z3,Y ZEICHEN DEFFINIERT WERDEN. DIESE ZEI- CHEN WERDEN 
Ö31D: 9D fd 28 44 R3 STA $28B0,X DANN GEGEN DIE ANGEGEBENEN ZEICHEN AUSGETAUSCHT UND 
B320: BI9 AB 62 45 LDA 24,Y KOENNEN DURCH AUFRUF VON 'CALL 768' AUF DEN HIRES-" 
0323: 9D BB RC 46 P4 STA $2C00,X 168 PRINT "BILDSCHIRM UEBERTRAGEN WERDEN. ES 
0326: BI BB 63 47 EDA. 25,8 | KOENNEN INSGESAMT 224 ZEICHEN DE- FINIERT WERDEN, 
9329: 9D PB 38 48 Po STA $3080,X DIE DURCH EIN MASCHINEN-PROGRAMM NACH HIRES KOPIERT 
B32C: BY 6B 64 49 LDA 2Z6,Y WERDEN. ALLECONTROL-ZEICHEN IM PRINT-MODUS WERDEN 
B3S2F: 9D 68 34 5% P& STA $3489,X IGNORIERT." 
B332: BY AB 65 Bl LDA Zr,r 1878 PRINT "DURCH DIESES PROGRAMM HAT MAN DIE MOEG- 
335: SD BB 38 52 PT STA $3899,X LICHKEIT, BEWEGTE BILDER IM TEXT-MODUS DARZUSTELLEN, 
B338: BO 28 66 53 LDA Z8,Y UM SIE DANN IN BESSERER GRAFIK IN DIE HIRES ZU 
A33B: 9D BB 3C 54 P8 STA $3C09,X UEBERTRAGEN" 
B33E: E8 55 LASSEN INX ‚nächstes 1088 VTAB 22: PRINT " PROGRAMM VON MARKUS GELTENPOTH, 1985" 
A33F: DB CA 56 BNE LOOP 1898 PRINT " ZEICHENSPEICHERBEREICH LOESCHEN (J/N}";: GET 
A341: AD $7 d3 57 LDA LOOP+2 AZ$: IF AZS < > "J" THEN 1119 
9344: 09 87 58 CMP_ #+$97 ;Schirmende? 1188 FOR I = 24576 TO 26623: POKE 1,8: NEXT : REM xx 
8346: FB 1D 59 BEQ ENDE ;ja, Endroutine LOESCHEN DES SPEICHERBEREICHS DER DEFINIERTEN ZEICHEN 
6 * ** 
61 #+ Diese Routine erhöht alle Pointer 1118 YTAB 23: PRINT " TASTE": VTAB 23: 
62  x* HTAB 23: GET A$ 
0348: EE 07 083 63 INC LOOP+2 1128 2 = ©: REM ** ZEICHEN-NUMMER ** 
B34B: EE 13 B3 64 INC P1+2 [139° HOME;  FRINT " ZEICHEN-NR.: ";Z2 +1 
B34E: EE 19 93 65 INC P2+2 1149 zı = 6 
#351: EE 1F 83 66 ING Pat 1158 PRINT " DEFINITION FUER ZEICHEN: "; CHR$ (32 + Z);" 
#354: EE 25 93 67 ING P4+2 (EHRS(":2 + 32:7 4 
8357: EE AB 63 68 INGE PSr2 116® INVERSE : VTAB 5: HTAB 15: PRINT ".8123456." 
B35A: EE 31 83 69 ING P&st2 1170 IE AZ$ < > !"J THEN 1360 
B35D: EE 37 63 TB INC P7+2 180° EOR ET = 9.70 7: YTAB & #27. HTABelSS TEBRINT T. VTAR 6 
036%: EE 3D 83 71 INC P8&+H2 +1: HTAB 23: PRINT "m NEXT 
0363: DB AB T2 BNE LOOP 1195 VTAB 14: HTAB 15: PRINT "arena „.'"': NORMAL 
B365: A9 BA 73 ENDE LDA #$94 1288 VTAB 16: PRINT " STEUERUNG: " 
B367: 8D 07 83 74 SsTA LOOP+2 12 L= PRINT " 1 SP = PUNKT SETZEN/LOESCHEN" 
D36A: AI 28 75 LDA #$2% 1228 PRINT " J-+-K N = NAECHSTES ZEICHEN" 
B36C: 8D 13 B3 76 Ssıa -Pplı2 1238 PRINT " M E = ENDE" 
B36F: AY 24 Tr LDA #$24 | jean =e2je re 6 
0371: eD 19 Ws 78 STA P2r2 | 1258 Pl = SCRN{ X - 11,Y # 2 - 2):P2 = SCRN{ X - 1,Yx2 - 
#374: A9 28 ng LDA +$28 1) 
#376: 8D IF B3 80 STA Pö+tz 1268 VTAB Y: HTAB X: GET A$: COLOR= Pl: PLOTX- 1L,Yx=2- 
#379: A9 2C 8) LDA #$2C 2: COLOR= P2: PLOTX- 1, Y«* 2 -] 
B3TB: 8D 25 83 82 STA P4+2 127 X=X+ (A ="K") «“ (X <22) - (AS = "J") * (X > 16) 
B37E: A9 39 83 LDA #$38 1288 Y=Y+ (A$ = "M") *« (Y < 13) — (A$ = "I") = (Y >6) 
P=SCRN X - 1, Yx* 2-]) | 


0380: 8D 2B d3 84 STA P5+H2 129 
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1538 COSUB 1439: REM ** LETZTES ZEICHEN SPEICHERN #%* 

1548 HOME : VTAB 3: PRINT "DIESEN ZEICHEN-FILE SICHERN? 
(J/N) ";: GET A$: IF A$ = "N" THEN 1599 

1558 PRINT : INPUT "NAME DES FILES: ";N$ 

1568 PRINT : PRINT "DISKETTE EINLEGEN UND TASTE 
DRUECKEN"; : GET A$ 

1578 PRINT "" 

15868 PRINT CHR$ (4); "BSAVE ";N$;", A$6909,1$700" 

1598 HOME : VTAB 3: PRINT "UM DIESE ZEICHEN AUF DEM 
BILDSCHIRM ZU SEHEN, MUESSEN SIE ERST DAS PROGRAMM: 
ICOPY.TEXT' (A$®399) UND DIESEN ZEICHEN-FILE (A$6ßP9) 


"u THEN IF P= 2 THEN VTAB Y: HTAB X: PRINT 




































IF A$ = 

U Ir 

1318 IF A$ = " " THEN IF P = 1® THEN INVERSE : VTAB Y: 
HTAB X: PRINT " ": NORMAL 

1328 IF A$ = "N" THEN 1439 

1356 IF A$ = "E" THEN 1528 

1348 21 = ZI +1 

1358 GOTO 125% 

1360 REM ** GESPEICHERTES ZEICHEN AUF DEN BILDSCHIRM 
BRINGEN xx 

1376 FOR I = Bß TO 7T:A = PEEK (24576 + I = 224 + 2): POKE 


928,A: CALL 921: FOR J = ß TO 6:A{J) = PEEK (945 + EINLADEN," 
J}: NEXT 16@® PRINT "IN HGR KANN MAN DANN NACH 'CALL 768' DIE 
1380 VTAB 6 + I: INVERSE : HTAB 15: PRINT I;: NORMAL : FOR DEFINIERTEN ZEICHEN, ANSTELLE DER" 
J=20 10 6-.IE #(J) = Ö THEN PRINT NW, NEAT 26070 1618 PRINT "IM TEXT-MODUS GEPRINTETEN ZEICHEN AUF DEM 
1408 BILDSCHIRM SEHEN." 
1398 INVERSE : PRINT " ";: NORMAL : NEXT 1628 PRINT : PRINT : END 
148 INVERSE : PRINT ".": NORMAL 


141® NEXT I: INVERSE 

1428 GOTO 1199 

14308 REM ** ALTES ZEICHEN BERECHNEN UND IN DEN SPEICHER 
'POKEN'! x** 

1446 IF ZI = ® THEN 1480 

1458 FOR I =1T0 8:A=$ß: FOR J=1T0 T:Al = B: IF SCRN{ 
J+14(I+5) «x2-1)=2THENAl=1 

1468 A=A+Al *»2 1 (J- 1): NEXT 

1478 POKE 24576 + (I - 1) =» 224 + Z,A: NEXT 

1480 Z = Z + 1: REM ** NAECHSTES ZEICHEN DEFINIEREN %*%* 

1498 IF A$ = "E" THEN RETURN 

1506 IF Z + 32 = 256 THEN 154 

1516 GOTO 1139 

1528 REM ** ENDE DER DEPINITION, SPEICHERBEREICH MIT 

DEFINIERTEN ZEICHEN AUF DISKETTE SPEICHERN ** 


COPY.TEXT.DEMO 


18 PRINT CHR$ (4)"BLOAD ASCII.CODES" 
28 PRINT CHR$ (4)"BLOAD COPY,TEXT" 
38 PRINT CHR$ (21): REM 88-ZEICHENKARTE ABSTELLEN FUER IIE, 
IIC 
48 HGR : POKE — 16382,9%: REM NUR GRAFIK 
5® HOME : PRINT "AUSGABE UEBER COPY, TEXT? (J/N)":: CALL 768 
68 GET A$: PRINT A$: CALL 768: IF A$ = "J" THEN 89 
| 7® POKE 1#14,8: POKE 115,3: END : REM &-VEKTOR SETZEN 
| 8ß POKE 917,76: POKE 918,27: POKE 919,253: REM JMP KEYIN 
STATT RTS 
99 POKE 56,9: POKE 57,3: CALL 1ßP2: REM EINGABE-VEKTOR 
SETZTEN UND DOS ANHAENGEN 





SUPERQUICK 


Ein superschnelles Disketten-Kopierprogramm 
von Arne Schäpers, 1985, Programmdiskette mit Anleitung, DM 48,— 


3 Mit SUPERQUICK ist es möglich, Disketten jeden Formats (DOS 3.3, ProDOS, UCSD- 
Pascal und CP/M) in einer unglaublich kurzen Zeit von nur 29 Sekunden (mit Formatie- 
rung) zu kopieren. Bei entsprechender Speichererweiterung kann der gesamte Disket- 
teninhalt eingelesen werden, um mehrere Kopien anzufertigen. Die Zeit für eine Einzel- 
kopie reduziert sich dann auf sage und schreibe 19 Sekunden. 


| SUPERQUICK erkennt die 64K-Karte (in Slot 3) des Apple Ile und IIc sowie eine 16K- 
Language-Card in Slot O und bezieht diese selbständig als Datenpuffer ein. Darüber hin- 
aus werden die IBS-Karten AP17 in den Ausbaustufen 64K bis 256K automatisch unter- 
stützt und gegebenenfalls als weitere Puffer eingesetzt. 


Eine Anpassung an Laufwerke mit höherer Spurenzahl (bis 80 Spuren, einseitig) ist 
ohne Schwierigkeiten aus dem Programm-Menü heraus möglich. 


Hüthig Software Service - Postfach 102869 - 6900 Heidelberg 1 
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Hallo, hier bin ich, der neue Stern am deutschen Computerhimmel. Ich heiße 


Ed 


AFC B . PROMETRIC?®! 
| rainware Super-Preise, hohe Integration und schnelle Verarbeitungsgeschwindigkeit 


bieten mehr als belegte Slots, viele Zusatzkarten und große Investitionen 


OPERATOR 


Ihr Experte in Expertensystemen 
Consulting - Schulung - Software 


Qualität und Fortschritt, 
der sich bewährt hat! 


Als Dankeschön für Ihr Vertrauen und die 


große Nachfrage: 
OPERATOR Il ARTIFICIAL 


jetzt nur noch | INTELLIGENCE 
Leistungstabelle: u | FÜR APPIEE II und 
Prozessor: a ES M iR CINT OSH 


Interface: paralle//seriell 
Handshake wählbar: 

Kabel mit Stecker: 

Ausführliches Handbuch: 


Schaltplan: | | = = e d - = 
Gehäuse: \ PROME TRIG a B 2&-Motherb oard 100 °o Apple kompatibel DM 1 .750,-- < 














Deutsches Erzeugnis: E 
Hex-Eingabe: | 
EA beburer: ] LISP P ’ ] Grephik-Ausgabe 
rozessoren: on 
Barcodeanschluß: PROLOG — Auflösung 192 x 2B0 Punkle 
| Passwortprogrammierbar: } 650? mit TEblit ur Moncchrom’RGB: Yıdeo-PAL/NTSC 
DT g MODULA 3 65C02 mit KANTE | Es konnen mehrere Mon.tore gleichzeitig betrieben werden 
| Programmierbare Tasten: Ix38 IDEA PROCESSING Ze  EE6.00 MHZ g Rlaraes 
Programmierbare Genlronics -  - 
Ebenen tauschbar: ale 3 beliebig EXPERT SYSTEM SHELLS Speicher: en FEN 
rei programmierbar: E N ee . ' Joy-Stick Anschlußmoglichkeil 
(direkt über 64 KByte Arbeitsspeicher 6502 | Anschlußmaglichkeit fur externe Tastatur 
Tastaturein- 64 KByte Arbeitsspeicher 65C02C | 
Kein Datenverlust an 64 KByte Arbeitsspeicher Z80B nd Iwickelte Hardwarek ick 
UTG 1E5£ nelenbsickelte Hardwäarekompanenle kann 
nach Abschalten: ja ö ESTER, ß belieb:ge 6502-8, slemsollware von Diskette geladen werden 
Max. Speicherkapazität: 1,6 kByte Fordern Sie unseren Katalog an. 192 KByte Gesamtarbeitsspeicher und bleibt im Rechner durch Akkupufferung auch nach 
Pro Taste: 14 Byte Abschalten des Geräles erhallen Syslemsoftware z B 


| . Deulsches BASIC 
Vorprogrammierung: - Text-Ausgabe: Integer BASIC 
Autorepeat: 2 Geschwin- Eger SE ANOE Appelsofl BASIC 


digkeiten 40 Zeichen Monochrom FORTH 
Akustikgeber eingebaut: ja B . @ bH 80 Zeichen Monochrom - 4Zeichensätze | 
Lieferung per Nachnahme zzgl. Versandspesen. raınware m Umschaltbar deutsch / amerik. Dos 


Ausführliches Info gegen Freiumschlag, Dieses neuentwickelle Disketlen-Operalions-System verwaltel 


am... DH Eu ud un nd 2 
Heer Dies vera nee et an en 


Kirchgasse 24 Pu - £ nsäflecfefr Bil ra Erlen Pink ur ar hun 








EI Mohr in 5ER DA 1.090, — 1 Ash A mM Kr Er rag ET Eee 
AFCG Computer GmbH = F = 1 je (a u ae Bir 
E \V/ | ee DM 
Salmstr. 20 - 5000 Köln 91 6200 iesbaden Autoboet.Körke DM 200,-- < = 
Tel. 02 21/83 80 00, Telex 8 873 254 afc Tel R OÖ 61 2 1-37 26 1 1 un Year ai kai DM E00 | Elsctönien) Speaulıl Geruen - Alt Protalrie 
.. Aal h hr ME Mi As | 
Woran par ohne : BIO Ginlun  Schilfenberger Ya 10 | 


A er | To, a Ta FIEBER TE Te 





VENEN Te 


grafisch arbeiten? 





Das MaecTablett von 

Summagraphies 

u 218) ]d2 4117170037 
rer nn ’ Ei: an 


ET EH 







Georg-Brauchle-Ring 68 

D-8000 München 50 
LIMITED Telefon 089/1415077 
Niederlassung Deutschland Telex 5214793 
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Der im Applesoft-ROM implementierte IN- 
PUT-Befehl ist nicht gerade luxuriös aus- 
gestattet. Man darf nicht alle Zeichen ein- 
geben und kann die Länge des Eingabe- 
Strings nicht begrenzen. Für solche Pro- 
bleme gibt es Bildschirm-Maskengenera- 
toren, die dieses Problem elegant lösen. 
Sie haben nur einen Nachteil: Sie kosten 
Geld! Man braucht nicht immer aufwendi- 
ge Programme, um seine kleinen Proble- 
me zu lösen. Es gibt auch Kompromisse: 
GETTEXT ist eine komfortable Texteinga- 
be für Applesoft, die auch Textvorgaben 
aus einer Stringvariablen übernimmt. Es 
setzt sich zusammen aus dem modifizier- 
ten Programm INALL von H. Grumser 
(Peeker, Heft 5/85) und der eigentlichen 
INPUT-Routine GETX, die übrigens — 
nach Löschen einiger Zeilen — auch allein 
in Assemblerprogrammen verwendet wer- 
den kann. Diese bietet ein definiertes Ein- 
gabefeld zwischen 1 und 255 Zeichen, 
Delete, Insert und die Escape-Funktion. 
GETTEXT kann an jede freie Stelle des 
48K-Speichers geladen werden und be- 
nutzt trotzdem den Ampersand-Vektor. Es 
ist deshalb sehr einfach in ein Applesoft- 
Programm einzubinden. Die beiden Ver- 
sionen für DOS 3.3 und ProDOS unter- 
scheiden sich nur in einer Adreßdefinition. 
Das Programm läuft auf Apple Ile, Ilc und || 
Plus und unterstützt auch die entspre- 
chenden 80-Zeichenkarten. 


INALL wurde an zwei Stellen verändert: 
Zusätzlich wird die Zahl der einzugeben- 
den Zeichen abgefragt (GETBYT), und 
statt des Applesoft-INPUT wird GETX und 
der Teil der INLIN-Routine verwendet, der 
Bit 7 der Zeichen auf Null setzt und ein 
Null-Byte an den eingegebenen String 
hängt (GDBUFS1). 


20 





Programmablauf 


GETX besitzt drei wichtige Zeiger. Der er- 
ste, ANZAHL, enthält die zugelassene 
Zahl an Zeichen. PTEND gibt die Zahl der 
eingegebenen Zeichen an. Wenn PTEND 
und ANZAHL gleich sind, dann ist das 
Zeilenende erreicht. Der dritte Zeiger, 
PTAKT, zeigt auf die gerade aktuelle Cur- 
sor-Position. PTAKT und PTEND dürfen 
nicht kleiner als Null und nicht größer als 
ANZAHL werden (linker und rechter Rand 
des Eingabefeldes). Zusätzlich wird mit ih- 
rer Hilfe entschieden, ob das Programm 
die neuen Buchstaben an den Text anhän- 
gen oder löschen kann, oder ob es mitten 
im Text Buchstaben einfügen oder Iö- 
schen muß (Insert-Modus). Am Beginn 
von GETX werden PTAKT und PTEND auf 
Null gesetzt. Ein vierter Pointer (ZEIGER) 
wird nur verwendet, um einen String aus 
dem Speicher in den Tastatur-Eingabepuf- 
fer zu bewegen. 


Nach dem Rückstellen der Zeiger wird das 
Eingabefeld angelegt. Wenn die beim Auf- 
ruf genannte Applesoft-Variable einen 
String enthält, dann wird ihr Inhalt in das 
Eingabefeld übernommen. Die Länge des 
Variableninhaltes darf dabei die vorher de- 
finierte Länge des Eingabefeldes nicht 
überschreiten, sonst erfolgt eine Fehler- 
meldung. SIGN ist das Zeichen für einen 
Punkt und kann durch andere Zeichen (z.B. 
SAO; Leertaste) ersetzt werden, wenn das 
Eingabefeld anders gestaltet werden soll. 
Nach dem Ausdruck der Punkte wird die 
Zeichenausgabe wieder auf den Anfang 
der Eingabezeile bzw. auf PTEND zurück- 
gesetzt. Hierauf folgt die Cursor-Routine: 
Es wird kein Cursor angezeigt, wenn das 
Eingabefeld voll (CUR) und PTAKT gleich 
PTEND ist. Wenn dann ein Eingabever- 


Komfortabler INPUT 
von Strings 


von Ulrich Kußmann 


such erfolgt, sendet das Programm zur 
Warnung einen Piepston (EOL). 

Um den Strich-Cursor darzustellen, wird 
zuerst ein Strich ausgegeben (CURSOR) 
und darauf das Zeichen, auf das PTAKT 
zeigt. Zwischendurch wird in der Warte- 
schleife KEYWAIT laufend die Speicher- 
stelle $C000 auf eine Tastatureingabe ab- 
gefragt. Das Setzen und Löschen des Gar- 
ry-Flags dient dazu, zwischen Strich- und 
Zeichenausgabe abzuwechseln. 

Wurde eine Taste gedrückt, dann erfolgt 
eine Verzweigung nach TASTE. Hier wird 
die eingegebene Taste im X-Register zwi- 
schengespeichert und das aktuelle Zei- 
chen noch einmal ausgegeben, denn es 
könnte ja auch noch der Strich des Cur- 
sors auf dem Bildschirm stehen. Es folgt 
die Rückstellung des Tastatur-Eingabere- 
gisters und eine Abfrage, ob das Zeichen 
ein Befehl für das Programm oder ein ein- 
gegebenes Zeichen ist. 

Nach der Entscheidung, ob das eingege- 
bene Zeichen ein Befehl (BACK = Links- 
pfeil; RETURN = Eingabeannahme; VOR 
= Rechtspfeil; ESC = Löschen + Return; 
DEL = Delete) oder eine Eingabe ist, wird 
die entsprechende Unterroutine abgear- 
beitet. Bei einer Eingabe muß entschieden 
werden, ob der Text in den String einge- 
fügt oder angehängt wird. Wichtig ist, daß 
die beiden Pointer PTEND und PTAKT bei 
jeder Veränderung entsprechend gestellt 
werden, Wie man schon bemerkt haben 
wird, unterhält das Programm eine „dop- 
pelte Buchführung“: Die Zeichen werden 
sowohl in den Bildschirmspeicher als auch 
inden Tastatur-Eingabepuffergeschrieben. 


Die Veränderungen beim Löschen oder 
Einfügen werden in den Teilen MOVEUP 
und DEL1 in den Puffer eingetragen; beide 
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Teile benutzen das Unterprogramm UP- 
DATE, um den Bildschirminhalt zu aktuali- 
sieren. An dem gelöschten bzw. gesetzten 
Carry-Flag kann UPDATE unterscheiden, 
ob vorher ein Insert- oder ein Lösch-Be- 
fehl abgearbeitet wurde. 

Da beim II Plus keine DEL-Taste existiert, 
sollte die DELETE-Zuweisung in Zeile 69 
durch „DELETE EQU $84 ;Ctri-D“ ersetzt 
werden. Dies wirkt sich im Code nur in der 
Adresse $80EB aus, die von $FF zu $84 
geändert werden sollte. 


Verschiebbarkeit im Speicher 


Wenn ein Programm im Speicher an allen 
Stellen lauffähig sein soll, dürfen Sprung- 
befehle (JMP, JSR) nur für im Speicher 
feststehende Unterprogramme (zB. 
ROM-Routinen) verwendet werden. Inner- 
halb von GETTEXT erfolgen Verzweigun- 
gen nur relativ. Weil aber solche Verzwei- 
gungen maximal 126 bzw. 129 Bytes lang 
sein dürfen, „hangelt“ es sich an einigen 
Stellen über mehrere Branch-Befehle zur 
gewünschten Stelle. 

Zusätzlich darf das Programm keine inter- 
nen Datenregister haben, die mit LDA, 
STA oder ähnlichen Befehlen abgefragt 
werden. Die internen Register von GETX 
liegen in der Zero-Page und sparen so, 
weil sie oft abgefragt werden, einige 
Bytes, da die meisten Zero-Page-Befehle 
nur zwei statt drei Bytes lang sind. Das 
Programm ist nur bedingt relokativ, weil 


GETTEXT.DEMO 


198 REM <<< GETTEXT.DEMO >>> 
11® HOME 
128 REM Startadresse = LOMEM 


138 START = PEEK (175) + PEEK (176) * 256 

148 PRINT CHR$ (4);"BRUN GETTEXT, A"; START 

158 REM LOMEM = LOMEM + 492 {Länge von GETTEXT) 

LOMEM: PEEK (175) + PEEK (176) *» 256 + 492 
178 PRINT "GETTEXT: Eine komfortable Texteingabe" 

188 REM Es folgt der Aufruf von GETTEXT: & Stringvariable, 


160 CLEAR : 


Zeichenzahl 
198 VTAB 18: HTAB 8: PRINT "Name: ";: 
206 VTAB 14: HTAB 14: PRINT X$ 
218 VTAB 1: HTAB 9: INVERSE : 
228 PRINT SPC( 128) 
238 VTAB 10: HTAB 8: PRINT "Name: "; 
248 VTAB 16: HTAB 14: PRINT X$ 


GETTEXT 


BSAVE GETTEXT, A$8999, L$8192 


Für ProDOS ist Zeile 51 des Assemblerlistings zu Ändern in: 


51 ADRESS 


Es ergeben sich beim Assemblieren dann folgende Änderungen: 


8928: 
8023: 
8025: 
8827: 
BB2A: 
802D; 


AD BS BE 56 LDA 
69 93 ADC 
99 93 BCE 
EE BA BE INC 
8D F6& 83 AMPER1 STA 
AD BA BE LDA 


#503 


$3F6 
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& X$,29 
PRINT "KORREKTUR®?";: 


: & X$,20 


EQU $BEB9Y 


ADRESS 


AMPER1 
ADRESS+1 


ADRESS+]1 








gleich am Anfang der Ampersand-Vektor 
gesetzt wird. GETTEXT erfährt beim Star- 
ten durch „BRUN GETTEXT“ seine jewei- 
lige Position im Speicher vom Betriebssy- 
stem {siehe Hinweis zur Anpassung an 
ProDOS. Auf der Peeker-Sammeldiskette 
ist die ProDOS-Version unter dem Namen 
GETTEXT,PRODOS enthalten). Verschö- 
be man es zu einem späteren Zeitpunkt, 
dann würde der Applesoft-Interpreter ins 
Leere springen. Hier liegt auch der einzige 
Unterschied des Programms zwischen 
DOS 3.3 und ProDOS. (Das BASIC.SY- 
STEM 1.0 der ProDOS-Versionen 1.0.1 
und 1.0.2 ist gleich). 


Ein Beispiel 


Wie man das Maschinenprogramm in Ap- 
plesoft einbinden kann, zeigt das Beispiel 
GETTEXT.DEMO: GETTEXT wird direkt 
hinter das BASIC-Programm geladen, und 
der Anfang des freien Speichers (Varia- 
blenspeicher) LOMEM wird um die Länge 
von GETTEXT heraufgesetzt. Vorsicht: 
Wenn ein solches Programm verlängert 
wird, muß beim Austesten GETTEXT je- 
desmal neu geladen werden. Umgeht man 
dieses durch einen GOTO-Start, dann 
stürzt das Programm bei Aufruf der As- 
semblerroutine ab, weil diese von Ap- 
plesoft überschrieben wurde. (Dieses Pro- 
gramm läuft auf dem Apple II Plus mit 
Videx-Karte erst nach Anpassung der Ta- 
bulilerungen. Der HOME-Befehl ist durch 
„PRINT CHR$ (12)“ zu ersetzen.) 


NORMAL 
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Literatur: 

U. Stiehl, Apple Assembler, Hüthig Verlag 
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U. Stiehl, ProDOS für Aufsteiger, Hüthig 
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Kurzhinweise 


1. Zweck: 
Hilfsprogramm zur Erweiterung des Tasta- 
tur-INPUT-Befehls durch Editierfunktio- 
nen; nicht für Disketten-Textdatei-INPUT 
gedacht! 

2. Konfiguration: 

Apple II+, Ile, IIc mit 40 Z/Z oder 80 Z/Z; 
bei 80 Z/Z mit Videx-Karte Programman- 
passung von GETTEXT.DEMO erforder- 
lich. Zwei getrennte Versionen des Ma- 
schinenprogramms für DOS 3.3 und Pro- 
DOS (BASIC.SYSTEM 1.0). Für ProDOS 
in Zeile 140 von GETTEXT.DEMO den Na- 
men „GETTEXT.PRODOS“ einsetzen. 
3. Test: 

DOS 3.3 booten 

RUN GETTEXT.DEMO 

4. Ssammeldisk: 

GEIIEXBEMO 
(Applesoft-Programm) 

GEITEXT > EGEIIEXT 

(Version für DOS 3.3) 

GE IIERTG.PEROBOS 

(Version für ProDOS) 


EEE et 
<<< GETTEXT >>> 


Ein komfortabler BASIC-INPUT 
für Applesoft-BASIC 

(benutzt die modifizierte 
INALL-Routine von H, Grunser) 
von Ulrich Kußmann, Bonn 1985 
Aufruf über Ampersand-Vektor: 


OHIO AWmD HM 


Zz,E® & X$, 28 


us u. a. u u“: En: a. a: a u u 


“aan 
8 

FORPNT EQU $85 
GDBUFS1 EQU $D539 
STRCEPY  EQU $DAYA 
CHKSTR EQU $DD6C 
CHKCOM EQU $DEBE 
PTRGET EQU $DFE3 
ERRDIR EQU $E386 
STRLIT1 EQU $E3E9 
GETBYT EQU $ESF8 
NUMBER EQU $EB 

* 


19 
11 
12 
13 
14 
15 
16 
17 
18 
19 
28 


CL 
BCC AMPER 

= 

*» => modifizierte INALL-Routine 

* 
JSR ERRDIR 
JSR PTRGET 
JSR CHKSTR 
STA FORPNT 
STY FORPNT+1 
JSR  CHKCOM 
JER GEIBIT 


OO U Q DS N DD WU DNDDNDDUDINDM 
DT AA DBDH-BCH HIT AU MD HM 


Cal 
oD 


Zul 


22 


Bßl6: 86 EB 
8818: FB 1D 


SplA: 
8ölc: 
BÖIF: 
gB2B: 
8023: 
8925: 
8827: 
BÖRA: 
BB2D: 
8I3B: 
8033: 


8034: 


3037: 
8039: 
BA3B: 


8B3D: 
BÖSF: 
8041: 
8943: 
8845: 
8847: 
8549: 


8ßaB: 
8BAC: 
8PAE: 
8059: 
8B5L: 
8053: 


8055: 
8057: 
8959: 
8ß5B: 
8P5E: 
gel: 
8062: 
8064: 


8B66: 
8068: 
SDGA: 
Bst: 
SÖSF: 


ac 


AB 
84 
84 


Bl 
FO 
c5 
FB 
BB 
85 
85 


c8 
Bl 
85 
c8 
Bl 
85 


Ad 
Bl 
89 
99 
20 
c8 
CA 
De 


CA 
D® 
A9 
99 
DA 


ac 
F5 93 


72 AA 
83 

#5 

73 AA 
F6 83 
73 AA 
FT 83 


39 El 


90 
ED 
EC 


85 
30 
EB 
d2 
ED 
EC 
ED 


85 
Tl 


85 
Te 


D8 
al 


80 
BD 92 
ED FD 


EC 
Fl 


EB 
7 
AE 


88 82 
1A 





39 


189 
11® 
{11 
112 
113 
114 
115 
116 
117 
118 
119 
129 
121 
122 
123 
124 
125 
126 
137 
128 
129 


STX NUMBER 
BEQ GETX ;immer 


=> Ampersand-Vektor setzen! 


ADRESS ist der Zeiger im 
Betriebssystem auf die Start- 
adresse des Programms: 


DOS 3,3 = $ArT2 
ProD0OS = $BEB9 
(BASIC.SYSTEM 1.9) 
ADRESS EQU $4AA72 
* 
AMPER  LDA #$4ac - JMP | 
STA $3F5 | 
ELE 
LDA ADRESS 
ADC #$03 
BCC AMPER1 
INC ADRESS+1 
AMPER1 STA $3F6 
LDA ADRESS+1 
STA $3F7 
RTS 
EERFHEKHETTTER TFT EFF EEE FE EFF EFT E 
* Modul: GETX * 
artnet 
* 
SIGN EQU $AE ul 
DELETE EQU $FF 
BUFFER EQU $od26dp 
IQERR EQU $E199 
couT EQU $FDED 
BELL EQU $FF3A 
# 
* —> Interne Register: 
E; 
ANZAHL EQU NUMBER :($EB) 
PTEND EQU $EC 
PTAKT EQU S$ED 
ZEIGER EQqu $7r1 


KK HH 


-> Pointer rücksetzen und Text 
aus der Variablen übernenmen, 
wenn vorhanden, 


*ERENK 


IQERRl JMP IQERR 

* 

GETX LDY #808 
STY PTAKT 
STY PTEND 


LDA ({FORPNT),Y 

BEQ FELD 

CMP ANZAHL 

BEQ OKAY 

BCS IQERRI 
OKAY STA PTEND 

STA PTAKT 
# | 
# -> Variablenpointer auf Text im 


* Speicher in Zero-Page poken 
* 

INY 

LDA (FORPNT),Y 

STA ZEIGER 

INY 


LDA (FORPNT),Y 
STA ZEIGER+1 


* 
* —> Text aus der Variablen in 
3 Puffer und auf Bildschirm 
* bringen; dabei Bit 7 auf 
a l setzen 

* 


LDY #$99 
MOVE LDA (ZEIGER),Y 
ORA #210080808 ;Bit 7 =] 
STA BUFFER,Y 
JSR GCOUT 
INY 
CPY  PTEND 
BNE MOVE 


CPY ANZAHL ;Feld 
BNE FELD ‚voll? 
LDA #SIGN 

STA BUFFER,Y 

BNE CUR 


8971: 
8973: 
8876: 
89793: 
BÖTA: 
BITC: 


SITE: 
Bß8l: 
8983: 
eB8e: 
8087: 
8089: 


8ß8B: 
8ß8D: 
SÄBF: 


8891: 
8094: 
8A96: 
8099: 
SÖYA: 


8B9C: 
8B9E: 
8ßal: 
BBAS: 
BAG: 


BBAT: 
8ßA9: 
8PAB: 
SPAR: 
8BBB: 
8ß8B1l: 
80B3: 
80BA: 


80B6: 
8BB8: 
8BBA: 
8ßBD: 
8dch: 
8802: 
8ßC5: 
8dc6: 


8008: 
8dcy: 
BÖCB: 
SöCE: 
8ßDl: 
8dD3: 


8ÖDE: 
88D7: 
8ADA: 
BöDt: 
BÖDE: 
SAEB: 
8dE2: 
BOEA: 
BES: 
8ÖEB: 
8OEA: 
SÖEC: 
SEE: 
BÖFB: 


Ag 


20 
C8 
CA 


D® 


99 
A9 
2d 
88 
c4 
DB 


AA 
A4 
B9 
2d 
A9 
20 


A6 
BA 


AE 
ED 


EB 
F3 


BB 
83 
ED 


EC 
F8 


ED 
EB 
dB 


nl 
19 


3B 


DF 
ED 
88 
ED 


BB 
Ad 
B9 
18 


F8ö 


ED 
8 
ED 
88 
ED 


EC 
EB 


82 
FD 


92 


FD 


CH 
cH 


FD 


FD 


cp 


82 
FD 


FD 


92 
FD 


FD 


c 


138 
131 
132 
133 
134 
135 
136 
137 
138 
139 
148 
4] 
142 
143 
144 
145 
146 
147 
148 
149 
15 
151 
152 
153 
154 
155 
156 
17 
158 
159 
16 
161 
162 
163 
164 
165 
166 
167 
168 
169 
178 
171 
172 
173 
174 
175 
176 
LER 
178 
179 
189 
181 
182 
183 
184 
185 
186 
187 
188 
189 
198 
191 
192 
193 
194 
195 
196 
197 
198 
199 
2B8 
201 
292 
203 
294 
2085 
286 
297 
288 
289 
218 
211 
212 
213 
214 
215 
216 
217 
218 
219 
228 


* -> Eingabefeld (Punkte) anlegen 
#* 
FELD LDA #SIGN 

STA BUFFER,Y 

JSR CODUT 

INY 

CPY ANZAHL 

BNE FELD 
* 
#* —> Ausgabepunkt zurückstellen 
* 

STA BUFFER,Y 

LDA +#$88 »B5 
FELD1 JSR COUT 

DEY 

CPY PTEND 

BNE FELDIl 
* 
* -—> kein Cursor, wenn Zeilenende 
* und Zeile voll 
* 
CUR LDY PTAKT 

CPY ANZAHL 

BNE CURSOR 


CUR1 LDA $c998 

EPL- EUR] 

LDX $c#19 

CE 

BCG WAS Immer 
% 
* -> Cursor-Routine 


* 
CURSOR LDA #$DF nn 
JSR COUT 
LDA +#$88 BS 
JSR COUT 
SEC 
* 
* Tastenabfrage und Warteschleife 
* 
KEYWAIT LDX #898 
LDY #160 ;Frequenz 
WARTEN LDA ScCAdgd 
BMI TASTE 
INX 
BNE WARTEN 
INY 
BNE WARTEN 


BCC 2 CURSOR 

LDY PTAKT 

LDA BUFFER, Y 

JsR COUT 

LDA +#$88 ;BS 

JSR COUT 

CLE 

BCC KEYWAIT ‚immer 
* 
* —> Taste gedrückt! 
= Letzten Buchstaben drucken 
* 
TASTE TAX ;A retten 

LDY PTAKT 

LDA BUFFER,Y 

JSR COUT 

LDA #888 Wer 

JSR GCOUT 
# 
* -> Befehl oder Zeichen? 
* 

TXA ;A holen 
WAS LDX $C812 

CMP #136 

BEQ BACK 

CMP _ #14l 

BEQ RETURN 

CMP #149 

BEQ VOR 

CMP #155 

BEQ ESC 

CMP #DELETE 

BEQ DEL® 

CMP_ #169 Gel 
CURR BCC CUR 
* 
* -—> Zeichen in Puffer speichern 
* und auf Bildschirm ausgeben 
* 

LDX PTEND ‚Zeile 

CPX ANZAHL sell? 
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Ausgabe una Eingabe mi: 


TYPETERM® 


im Slot Ihres 


APPLE Il/lle 


Das bedeutet: Computertextverarbeitung, Datenbank- 


systeme usw. von der Schreibmaschinentastatur. 


Steckerfertig_ ohne Umbau. Kein weiteres Interface 


erforderlich. 


TYPETERM-Interface 
für CE-51 bis EM-250 


Enz 


be ai Bd Hd Ka Da a 


Paketpreise: 
Alle Maschinen bereits incl. 
TYPETERM Interface . (DM 479,-) 


CE- 51 mit TYPETERM . 
CE- 61 mit TYPETERM . 
CE- 68 mit TYPETERM . 
CE- 70 mit TYPETERM , 
EM- 80 mit TYPETERM . 
EM- 85 mit TYPETERM , 
EM-250 mit TYPETERM . 


ab EM-80) . 


Preisliste kostenlos 
Katalog DM 2,- 
in Brieim. 


Unser Dezember-Angebot: 


Profimax Ile, APPLE Ile kompatibel, 
IBM-Look nur 1398.- 


Profimax Ill, APPLE II+ kompatibel, 
2 Prozessoren IBM-Look nur 1098,— 


Chinon-Laufwerk 051A nur 398.- 
Video-Digitalisierer incl. Software nur 298.- 
STAR sg-10, original, mit Serien-Nr. nur 998.- 


Centronics-Interface, grafikfähig nur 118.- 


D.O.S Computersysteme 


der Partner für Schule, Hochschule, Forschung, Fertigung 


Am Kühnbach 42, 7170 Schwäb. Hall 11 
Tel. 07 91/5 17 36 





APPLE*+ 3: 


kompatibles 


| SPRINHGMANN COMPUTER GmbH 
Ströckener Str. 199 

Sad Hannover 21 

Tel: 0611-?7931111 Tix: 921456 comps dJ 
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Ausgabe mit 


TYPETERM® 
JUNIOR 


® 3 verschiedene Schriftstärken 

® Automatisches Unterstreichen 

® 2 Zeichensätze deutsch/ASCII 
(m. ASCII-Typenrad) 

® 2 Zeichenabstände 

® Für alle Betriebssysteme 


ab DM 899,- incl. AX-10 


TYPETERM - Mit diesem steckfertigen Interface an Ihrer BROTHER-Typenradschreib- 
maschine lassen Sie Ihren APPLE korrespondenzreif schönschreiben. Wenn Sie 
wollen, benutzen Sie mit allem Komfort die Schreibmaschinentastatur zur Eingabe für 
Ihre Textverarbeitung oder als Ersatz für Ihr Keyboard. Anschließend druckt oder 
schreibt Ihre Schreibmaschine wahlweise ASCII- oder deutschen Zeichensatz, Hoch- 
und Tiefstellungen, automatisch unterstreichend in variablen Zeichen- und Zeilen- 
abständen, viele Sonderzeichen und vieles andere mehr. Selbstverständlich für alle 
Betriebssysteme. Ideal für den beliebten Wordstar unter CP/M. Die moderne elektroni- 
sche Typenradschreibmaschine steht Ihnen natürlich auch allein weiterhin unverändert 
zur Verfügung. 


TYPETERM JUNIOR - wahlweise mit AX-10 oder CE-25. Unsere besonders günstigen 
Gespanne zur Ausgabe am APPLE, ebenfalls steckfertig. Mit Ihrer Textverarbeitung und 
TYPETERM JUNIOR können Sie dann selbstverständlich auch in verschiedenen 
Schriftstärken wahlweise im deutschen oder ASCII- 

Zeichensatz schönschreiben, zentrieren, automatisch 

unterstreichen und rechts- oder linksbündig schreiben. 

Für alle Betriebssysteme. Auch als moderne elektro- 

nische Typenradschreibmaschinen können sich 


TYPETERM - ein starkes Interface für starke 
Maschinen! 
® Alle Cursor- u. GTL-Befehle bei Eingabe. 
® 2 Zeichensätze deutsch/ASCII 
(m, ASCII-Typenrad) 
® Für alle Betriebssysteme 
@ Hoch/Tiefstellen, autom. Unterstreichen 
® Var. Zeichen- u. Zeilenabstände 
® Autom, Papierzuführung mit GF-100 
(ab EM-80) vom Stapel usw. 


CE-51 





| FC-4B Computer, 44 KB, o.EPRüls 
PC-&4 Conpuker, bi KB, o.EPRON: #79,” 
PÜ-S4zE Computer, 64 KB + 280, 0,EPRONS 1198,- 
Pakete bestehend ans Computer, Disk, Controller: 
Patet 44, incl. 1 DISTAR + Controller 999,- 
Paket 64, inche 1 BESTAR + Controller 109,- 
Patek G4zE, inch. 2 DISTAR + Controller 1699, - 


Tastaturen: 


Keyboard, CHERRY-Tasken, deulsches Layout, 299,- 
1öprogrammierbars Funktionstasten, für 


Cable Kit A (immer erford 


AX-10 mit TYPETERM JUNIOR 
CGE-25 mit TYPETERM JUNIOR 


TYPETERM-kit lür GE-50 


Fre Fukamil maute 


ABACOMP 


Ihr Computer-Fachhändler seit 1979 


Unsere Apple - Hits 


Sn Preise gültig solange Vorrat reicht 


10 Disketten Durollfe 


Schalt-Netzteil 
Disk-Controler-Karte 

80 Zeichen-Karte m. Softswitch 
Disk-Laufwerk 

Disk-Laufwerk Chinon .. 
DRUCKER FÜR IHREN APPLE 
Epson FX-85 

Panasonic KX-P 1091 

Riteman F+ 

Riteman Inforunner 
Typenraddrucker 

MONITORE 

9", grün, 18 MHZ 

Philips TP-200, grün 
Pal-Farbmonitar 


| FISCHER-TECHNIK 


Set Computing 
Interface für Apple 
ER er 2 


Bestellungen bitte nur schriftlich an: 
Abacomp GmbH, Kransberger Weg 24, 6 Frankfurt 50 
Mindestbestellwert: 50,- DM 
Tel. Auskunft: Mo-Sa 8-9.30 Uhr unter (069) 700308 
Ladenöffnung: Mo-Fr 10-12 und 14-18 Uhr in Ffm. 90, 
el Tut lt BT To E34 c- 160 











73,” Zusätze 17 Apple Il: 

16K Karke 1a= 
180 Karte 7- 
%-Teichenkarte alt Solksultch 2 
Bisk Controller #, 2 Laufwerke - 
Drucker Interface wie Grappler mit Kabel GE 
Brucker Interface w.0.,n.b4KB Buffer 49," 
Drucker Interface wit Kabel f.ITOH/REC 7, 
Joystick a. Aubocenker, Trinunag, Feuerknonl 69,” 


OPERATOR T HB,” Joystick,v.a. ‚stabiles Metallgebäuse 49,- 
OPERATOR II 399, - LZEK RAN Karte 429,- 
DPERATOR TIe 7119, - Super-serlelle Karte lt 6551 179,- 


6522Xarte nit 216522 89,- 
Graphic Mouse incl.Softvare ähnl. Koala 189,- 


Apple II und -kompatihle, =.BBL5 Stecher EPREM BURNER alus+ 373,- 
Keyboard,CHERRT-Tasten F.IBN-PC, 15 ASCIT 2399,- BIIEBER dA (Tusabz Tür BIRHER nlus#) 218, - 
keyboard vie oben, deutsches Layout 279, - Gehäuse, Metall, f.APPLE, Shnl.ibM PC 22, 


16 bit Computer und Zubehör: 

PC-B8 Notharboard, I8N-PC komatlbel, I11W,- 
25h KO beskückt,bis 640 KB erveikarkar 

PO-AJIT Motherboard, IBM-PÜ kampatltel, 599,- 
mar, GAOKE on board, OK hestückt. 

Color Graphic Card 289,7 


Ob westückt, | paralleles, ti serlelles 
Interface, Dar mit Akkupufferung 


AX-10 und CE-25 sehen lassen: Lift-off-Korrektur, 

schneller Typenradwechsel im Drop-In-System für 

viele verschiedene Schriftarten, 40-bzw. 20- 
Zeichen-Korrekturspeicher usw. usw. 


oO 
interkom Kock & Mreches GmbH 
Postf. 3004 Isernhagen 4 


electronic Telefon 05139-87393 





Apple und IBM 
kompatible Gomputer 


16K, Z80, Diskcontroler je . 75- 
80 Zeichenkarte mit Softswitch 

2 Zeichensätze 
Motherboard 48K ohne Firmware 
Erphi-controler mit Autopatch 
Siemenslaufwerk F 122 
TEAC FD-55B 2 x 40 Track . 
TEAC FD-55F 2 x 80 Track . 
FD4 Spezialcontroter für Laufwerke 
mit bis zu 2 x 80 Track 
Drucker Star SG 10 
Monochrome Monitore . 
Farbmonitore . . ab 998 — 
Tastaturen für IBM und Apple ab 330,— 
Versand nur per Nachnahme oder Vorkasse. 
Weiteres Zubehör für Apple und IBM gegen 
frankierten Rückumschlag. 
Preissenkung: 
128K Karte (Saturn kompatibel) . 
Preissenkung 4164-200 ns 
Mindestabnahme 20 Stck. . 3,90 
Zusatzkarten und Motherboard ausnahmslos 
deutsche Fertigung mit ausgesuchten Bauteilen. 


Ulf Mohwinkel Electronic 
Berliner Straße 73 Pf: 250 166 
5090 Leverkusen Fettehenne 
Telefon 02 14/9 37 81 


. 149,— 
. 419,- 
. 300,— 
0919, - 
. 448,— 
. 475,- 


. 130,- 


940,- 
ab 375,- 


375,— 






Auliiienrijan Card AR EI nn 43,- 
Barhellar: Tateelace I Feet besteht 2ö9,- 
Kate, Jedi haldı Parka Barkkehi 149, - 
Mhrankarte urn a Se  159,- 
Fra Ant: Kar 199, - 
Aa Ca, DT, De 429,- 


Monochros Granhic/Prinker Card 39,” Bd ei a, A ra, , 499,- 
Netzteil 130W 33,- | saralleire # | worlallen Inter loch, 

Gehäuse 1.PC-BU/PL-B7-Platina 211; Br al ee, ee 

SI2K Karte, OK bestückt 169, - ardilat nd 

Hire-Wrap Karte 79,” Html re 

ROM Card f.6 Stck. Zönel. Sockel 69,- Nils anlagen | 

Joystick, Autocenter u. Trinauag 69,- Hiabalienlanfarini 

Joystickadapter B,- BIITAR 1. A 11, Ta, IE 369, - 
Mitifunckiom Card MF 605 mar. Z56KB, 379,- BITTE Te le 309, - 


Kirahtaniauferr ME, eilig, 369, - 
3.9, ullaliaa, Bejeriehen, fir I 





HÄNDLER GESUCHT 
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8194: 
816: 
8187: 
8199: 


81BB: 
81PdD: 
811: 
slit: 
8114: 


8117: 
8119: 


8llB: 
slılD: 


sllf: 
elede: 
Bl2B: 
827: 


8129: 
8l2B: 


8l2D: 
8l2F: 
8132: 
8134: 
8135: 


&lar: 
8l3A: 


SLace 
älsD: 
Bl3F: 
8149: 
BlAS- 
81486: 
8148: 


BLAA: 
814B: 
8lAE: 
slsl. 
8108: 


8154: 
8156: 
8157: 
815A: 
815D: 
8l5E: 
8169: 


8162: 
8164: 
8167: 
8168: 
BI6A: 


8lctc: 
8leD: 
BL6F: 
srl. 


E6 
18 
99 
FB 


A6 
20 
c8 
28 
ac 


AZ 
Fo 


CA 
ro 


B9 
28 
E6 
Dö 


9 
FO 


A9 
20 
C6 
18 
9% 


20 
DP 


AA 
A4 
88 
B93 
99 
c4 
Dp 


8A 
99 
20 
E6 
18 


EC 


E7 
68 


EC 
39 


E9 
9A 


0 
F2 


EC 
Er 


DB 
ED 
ED 
DD 


29 
DA 


88 
ED 
ED 


cr 


3A 
CA 


EC 


#0 
B1 
ED 
F5 


0 
ED 
ED 


ED 


B0 
ED 


EB 
F5 


88 
ED 


ED 
F8 


DS 


B3 
DA 


B2 
FD 


FD 


ER 


82 


B2 


82 


FD 


92 
FD 


FD 


228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
249 
24] 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
269 
261 
262 
263 
264 
265 
266 
267 
268 
269 
278 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
299 
29] 
292 
293 
294 
295 
296 
297 
298 
299 
3B8 
301 
382 
303 
304 
305 
386 
397 
398 
399 
319 
all 


BEQ EOL 
CPY PTEND 
BNE INSERT 


‚Insert? 


STA BUFFER,Y 
JSR COUT 
ING PTAKT 
INCR ING PTEND 
CURS3 LEG 

BEE EURE 
DEL® BEQ DEL 
* 
* -> Return 
* 
RETURN LDX PTEND 
RETURNl JSR GDBUFS] ; INALL 
INY 2. Teil 
JeR SSTRLeT! 
JMP STROPY 


‚Append! 


; immer 
‚Sprung 


;Exit 
* 
* -—> Escape 
* 
ESC LDX #8 
BEQ RETURN! 
* 
* —> Cursor vorrücken 
* 
VOR CPY PTEND 
BEQ CURS3 


;‚Zeilen- 

‚ende? 

Ze 
LDA BUFFER,Y 
JSR COUT 
INC PTAKT 
BNE CURS3 ‚immer 

3 

* -—> Backspace 

* 

BACK cPY +$08 
BEQ EOL 


;Zeilen- 
‚anfang? 
* 
LDA #$88 ;BS 
JSR COUT 
DEC PTAKT 
CLC 
BCC CURS ‚immer 
* 
* —> Anzahl voll {Warnung}! 
= 
EOL JSR BELL 
BNE CUR3 
* 
* —> Text einfügen wenn: 
* PTAKT <> PTEND 
* 
INSERT TAX 
LDY PTEND 
MOVEUP DEY 
LDA BUFFER,Y 
STA BUFFER+1L,Y 
CPY PTAKT 
BNE MOVEUP 


;:A retten 


TXA ;‚A holen 
STA BUFPFER,Y 

JSR COUT 

INC PTAKT 

CEE 


* 
* -—> veränderten Pufferinhalt 
* ausgeben 
* 
U 


PDATE LDY 
PHP 
UPDATI LDA BUFFER,Y ;Puffer- 
JSR COUT ‚inhalt 
INY ‚ab PTAKT 
CPY ANZAHL ;BUS- 
BNE UPDATI ‚geben 


PTAKT 


* 
LDA +#$88 :BS 
PRINTB JSR GCOUT ‚Ausgabe 
DEY ; Zurück- 
CP  PTAKT stellen 
BNE PRINTB 


PLP 

BCC INER 
DEC PTEND 
BCS CUR3 immar 
* 


* -> Delete 


312 %* 


8173: CO 09 313 DEL CPY +$09 ;‚Zeilen- 
8175: Fü SE 314 BEQ CURS3 ‚anfang? 
315 * 
8177: C6 ED 316 DEC PTAKT 
8179: 88 Sr DEY 
817A: BO 61 02 318 DELI1 LDA BUFFER+1,Y ;Puffer- 
817D: 99 B8 02 319 STA BUFFER,Y ;inhalt 
818d: CB 329 INY ıVer- 
8l8l: CA EC 321 CPY PTEND ‚schieben 
8183: DÖ F5 322 BNE DEL1 
323 %* 
8185: A9 AE 324 LDA #SIGN 
8187: 99 00 B2 325 STA BUFFER,Y 
818A: A9 88 326 LDA +88 ;BS 
8lsC: 28 ED FD 327 JSR COUT 
8l8F: 38 328 SEC 
8198: BB C2 329 BCS UPDATE ‚immer 
A922 Bytes 


Arne Schäpers 


Bewegte Apple-Graphik 


DOS Toolkit-Erweiterungen 


1985, 305 S., zahlr. Abb., 
kart., DM 58,— 
ISBN 3-7785-1150-5 


„Bewegte Grafik, Apple DOS Toolkit Erweiterungen” wen- 
det sich als lehrbuchhafter Kurs an alle, die professionelle 
hochaufgelöste Grafiken auf dem Apple erzeugen wollen. 
Der erste Teil beginnt mit einem Abriß des Aufbaus der 
HGR-Seiten aus der Sicht des Programmierers. Danach 
wird das Programm HRCG (Hires Character Generator, 
Apple, Inc.) eingehend analysiert, und sinnvolle Ergänzun- 
gen werden vorgestellt. Schrittweise wird die Nutzung des 
HRCG erarbeitet bis hin zur beliebigen Bewegung eines 
statischen Objekts auf einer der HGR-Seiten. 


Der zweite Teil baut auf dem ersten auf und führt über die 
Definition mehrerer Objekte und simultaner Bewegung hin 
zu einem Arcade-Spiel, das für die meisten käuflichen Ac- 
tion-Spiele in der meisterhaften Grafik als Vorbild dienen 
kann. Zielgruppe sind Programmierer, die mit Basic keine 
großen Schwierigkeiten mehr haben und zumindest über 
praktische Grundkenntnisse in 6502-Assembler verfügen 
sollten. 


Dr. Alfred Hüthig Verlag 
Im Weiher 10 
6900 Heidelberg 1 
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Computerbucher 


diegehen, für Computer 









die kommen. 


use 


Bewegte 
Apple-Grafik 


eg 





DOS Toolkit-Erweiterungen 


ProDOS-Analyse 


Versionen 1,01, 1.02, 1.11 


Arne Schäpers 

Bewegte Apple-Grafik 
1985, 305 S., 6 Abb., kart., 
DM 58,— 

ISBN 3-7785-1150-5 





Arne Schäpers 
ProDOS-Analyse 
Versionen 1.0.1, 1.0.2, 1.1.1 


1985, 320 S., kart., DM 68,— 
ISBN 3-7785-1134-3 


: pe % er 


5 u 93 3 DE 37 HU 3 


ESEL LP LSTd Re aTela 


Programmbeispıelen LS 
Ulrich Stiehl Tre 
Tricks 


PAR NEE Te 


BE 7, | Ulrich Stiehl 
Hr - Apple DOS 3.3 
Tips und Tricks 


Ulrich Stiehl 2., durchges. Auflage 1984, 
abkessemblar an nr ee 
1984, 200 S., 3 Abb., kart, 

DM 34,— 


ISBN 3-7785-1047-9 


Weitere Titel und Informationen finden Sie in unserem Computerbuch-Katalog: 


Dr. Alfred Hüthig Verlag, Postfach 10 28 69, 6900 Heidelberg 1 














Applesoft BASIC 





Frank Bühler 
Appliesott Basic 
Tips und Tricks 


1985, 241 S., 40 Abb., kart., 
DM 38,— 
ISBN 3-7785-1094-0 


as gr ee ar on 


u el EEE 733 4 
für Aufsteiger 


Mit ausführlichen 
Ulrich Stiehl'  Programmbeispielen 


2. Auflage 


Ulrich Stiehl 


ProDOS für Aufsteiger 
Band 1 
2., geänderte Auflage 1985, 


208 S., kart., DM 28,— 
ISBN 3-7785-1098-3 





U 





a 


Apple-Assembler 
lernen 


Band 1: Einführung in die 
Assembler-Programmierung 








Jürgen Kehrel 

Assembler lernen 

Band 1: Einführung in die 
Assembler-Programmierung 
des 6502 


1985, ca. 200 S., kart., 
DM 38, — 
ISBN 3-7785-1151-3 


WE. = 


TI EICH LG 
Mit ausführlichen 
Ulrich Stiehl Programmbeispielen | 
| 
5 j 
LU: 
lila TR 





Ulrich Stiehl 

ProDOS für Aufsteiger 
Band 2 

1985, 207 S., kart., DM 30,— 
ISBN 3-7785-1036-3 









Verkauf Software 


Astrologie: Berechn. u. Graphik. 
Info n. voreins. 1 DM in Briefm., 
C. Landscheidt, Im Dorfe 14, 
D-2804 Lilienthal. 


Computer-Literatur: 
Liste bei: Lindemanns 


Buchhandl. kostenlos. 
Nadlerstr. 10, 7000 Stutigart-1 


tete WARGAMES rıınaz 


Die Besten von SSI für APPLE C 
64 ATARI. 
Info gegen 80 Pfg. RP 


Computer-Service Th. Müller 
Postfach 2526 
7600 Offenburg 


— — STOCKMASTER II — — — 
Das Apple-Programm für echte 
Börsengewinne. Diskette 485,— 
DM. Beschreibung P12 anfordern 
bei Töngik, COMPUTER-PRAXIS, 
Aspeltstr. 4, D-6500 Mainz 1 


PIRATE DEFENCE 2.0 Kopier- 
schutz gehört zu den sichersten 
Schutzsystemen Deutschlands. 
Für DOS, ProDOS, DIVERSI u.a. 
Info (50 Pf}, Chr. Bregler, Tul- 
penstr. 2, 7519 Eppingen. Händ- 
leranfragen erw.| 


Software-Uhr f. Apple Il+ e, 
c ausbaufähig zum Zeitschalter 
Diskette + Anleitung DM 25,- 
Dortmund, T. 391920 


Diverse Software für Apple lle 
zu verkaufen. Nur Originale. Liste 
gegen freien Rückumschlag. 
Michael Sprengel 

Amselweg 4 

7903 Laichingen 3 


Apple: Public Domain: Volume 
DM 15, Games, Schach, Graphic 
etc. Derw. Lehrerpro. Gratisinfo: Fa. 
Waltrau. Muhle Waldwinkel 3, 2105 
Seevetal 3 


Apple Pascal 1-2 u. Apple 
Works! Original! Hälfte NP! C. v. 
Fournier, Fasanenstr. 4, 8550 
Forchheim (2259) 


Apple II emuliert Sharp- 
Pockets! Prgrübertrg. v. Gamep. 
z. 11-Pincon. Info geg. 2X80 Pfg- 
Brfmk., K. Schmidt, Hasenclever- 
straße 25, 2000 Hamburg 74 


26 








Verkauf Hardware 


Apple-SUPERANGEBOT 
Apple Hi 

PAL-Farbinterface 85,- 
A2 Language Karte 16KB 120,- 
Apple Pilot, Sprache 97,- 
Quickfile Ile (deutsch) 59, — 
6502 Hardware Manual 14,- 
6502 Programmier Manual 14, 
Stand f. Monitor II 19,- 
Apple Ill 

Apple Ill 256 KB 2330, — 
Profile 5 MB Laufw. 1420,- 
Silentype Drucker 235,- 
Silentype Papier (15) 47 - 
Parallel Interface 150,- 
Visicalc Ill 160,- 
Mail List Manager 99,- 
Hand Holding Basic 60,— 
Apple Writer II 150,- 
Business Graphics A Ill 105,— 
Access Ill 90, 
Pascal III Utility Lab. 45,— 


Weiterhin bieten wir an: 

INTRO 8-Zoll-Diskettenlaufwerk 
für Apple Ill, kompl. 1256,- 
Täglich von 9.00 bis 16.00 Uhr 
Tel.: 0228-268 4296 u. 268 42 13 
Bonndata GMBH, Poppelsdor- 
fer Allee 27-33, 5300 Bonn 1 


Verkaufe Apple Zusatzkar- 
ien: 


16K, Z80 Karten 75,- DM 
80 Zeichen Karten 180,- DM 
128KB Karten 205,—- DM 


ERPHI CONTROLLER 

nur 278—- DM 
TEAC FD-55-FV nur 398 - DM 
Ile Kompatibler nur 1710,- DM 
auch IBM-Karten / Infos kostenlos 
Axel Braukmann, Am Sportplatz 51 
4005 Meerbusch-2, 

Tel. 02159/3626 


Verk. w. Syst. w. neuw. Apple- 
komp. IBS-Space-84, 192 kB RAM, 
Knürrgeh., Lüft., sep. Tast., Taxan 
Mon. gn., Z-80 Card, Z-80B Card 
(IBS AP-22, 64 kB, 6 MHz), Floppy- 
Contr., Ehring-Contr., Epson Druk- 
kerinterf., 80-Z. Videx Ultraterm, 
orig. The Clock, Supertalker (dig. 
Sprachein- u. ausg.), 1 Floppy 135 
kB, 2 Teac FD 55 A (140 kB), 2 
Teac FD 55 F (640 kB), orig. Apple 
Graphik-Tabl. Tel. 08084/3627 
nach 18 Uhr. 


Apple Il + 64K Disk Minotor 
VIDEX Z80 PAL Div. Softw. CP/M 
Finanz Wirtsch, Spiele Literatur 
Handbü. DM 3000, — 

Tel,: 030/4045247 


Fernschreiberinterface am 
Gameport m. Programm DM 79,- 
P. Benner, Hubertusstr. 131, 4150 
Krefeld 


pet 





örse 


Verk. Apple Ile, 64K RAM, mit 
Bildschirm, Disk. Laufwerk, Matrix- 
drucker, Z80-Karte, CP/M-Karte, 
Grafikf. mit umfangreicher Soft- 
ware (DB2, Wordstar uva.). VPDM 
5.500, 1el,96203/6573U, 


3 Drucker an einen Compu- 
ter? 3 Computer an einen Druk- 
ker? Info: Fricke Computertechnik, 
Wattstraße 30, 2400 Lübeck, 

Tel. 04517/604749 


Epson Interfaceumbau 
f. AWorks DM 20. Mahr, Waldak- 
ker 71, 73 Esslingen 


Apple Ile, 2 Disk II mit 
Contr., 128 KB. 80-Zeichen 
Card, Super Serie || Card, Printer 
Card, Z80 Card {CPM), Joystick, 
DM 3600. 2 x 640 KB TEAC FD55 
Drives incl. Contr. im Gehäuse an- 
schlußfertig DM 1300. Alles zus. 
nur DM 4600. Tel. 07181/61540 
ab 19 Uhr. 


Apple II+ 64K, /80, 802, 2 
Floppy, Monitor, Drucker, viel Soft- 
ware, Lit., DM 2600,- 

Tel. 07151/61584 


Apple Ile, 1 Disk+Contr., Mo- 
nitor, Prem. Softc. (Z30B, CP/M, 
80ZZ, + 64K) für DM 3000,— 

T. 08231/85624 


Ramworks-Karte 512KRAM 
DM 1500,- / sFr 1250,-. Mit AW- 
Paich für Apple lle. Z-RAM 512 
KRAM-+CP/M DM 2300,- -/sFr 
1950,- Für Apple Ilc. Weiteres div. 
Zubehör Liste Verl, 

Tel. Schweiz 061/47 8934. 


Verk. Apple Ile Comp. 123KB 
Ram Z80-Prozessor, 80 Zeichen, 
Joyst. 2 Laufwerke 35/40, Monitor, 
sep. Tastatur #x* VHB 3300,— *** 
Michael Knöpel, Tel. 062 41/61 22 


ZUFALLGENERATORkarte 
für Apple Il. Echte Zufallzahlen 
durch Halbleiterrauschen. DM 98,— 
incl. Versk. per NN. Ralf Pagel, 
Schönberger Str. 14, 2300 Kiel, 
T. 0431/7296 31 


MAC 128 auf 512K DM 798-Bau- 
satz kompl. DM 298, -,, Tel. 18.00 h, 
T. 089/985898 


Apple Ile mit Bildschirm + 
Lüfter 128K Z80 1 Teak Doppellauf- 
werk a. 360 K umschaltbar 40/80 Tr, 
VB DM 3500,--, Tel. 040/601 0051 


Apple Ii+, 64K, 20rig. Disks, 
Monitor, 80Z-K., Z80-K., komplett 
oder einzeln, Preis VHS, 

T. 062217861633 


Erphi-Contr. 198,-, 
1.027 117424325 


Er IIIIIN 


ERPHI-SYSTEM Erphi-Control- 
ler 275,—, 2 x TEACFD55F(2x 
80 Sp) a 460,- oder komplett 
1150,- (alles neuw.) Schoeben 
Udo, Tel, 982171523 77 


Akustik-Koppler, Dataphon 
s21d Anschlußkabel, Terminalpro- 
gramm neu, DM 360,—, 

Tel. 02666 / 704 


Original Apple 80Z/Z-Karte !. 
Ile m. Buch DM 120,- 
Tel. 07159/3602 


Ankauf Software 


Finanzbuchhaltungs-, Auf- 
tragsabwicklungs- und Lohnbuch- 
haltungs-Programme für den Apple 
II+ gesucht. T. 051 64/8566 


Ankauf Hardware 


Suche Apple-Interface für 
Schreibmaschine TA 8008 Gabrie- 
le. Wer kann helfen? 

Tel. 0461/25999 


Suche Interface [RGB Il B-80) 
für TAXAN-Monitor. M. Rosbund, 
Eierwiesensitr,. 62, 7024 Filderstadt 1 


Wer kann mir bei Problemen 
mit CP/M helfen? Gernot Wid- 
mann, T.0 7193/6286 ab 18 Uhr. 


Verschiedenes 


APPLE REPARATUREN 
(auch compatible M-boards, z.B. 
Atlas, Arca, CES, Datastar, 
Dipa, Lasar, Mewa, 

PC-48 + 64, Plato, Radix, o. 
ae.) sowie Zusatzkarten und 
Disk-Drives führt unser Speziali- 
stenteam mit mehr als 5-jähriger 
Kunden- und Reparatur-Dienst-Er- 
fahrung, garantiert zuverlässig und 
besonders kostengünstig aus. 
Bitte genaue Fehlerangabe sowie 
Tel. Nr. für evtl. Rückfragen nicht 
vergessen. 

Auf Wunsch Kostenvoranschlag. 
aaa-electronic gmbh 
Habsburgerstr. 134, 7800 Freiburg, 
Tel. 0761/276864, Tx. 772642 aaad 
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Für Ihre Unterlagen IIIIIY 


Abonnement bestellt 





Ja, ich möchte peeker abonnieren. 


Liefern Sie mir peeker ab Ausgabe ................. (1985 erscheinen 11 Ausgaben — 
1 Doppelnummer) zum Jahresbezugspreis von DM 72,— (Inland) incl. MwSt. Die 
Lieferung erfolgt frei Haus. Porto, Verpackung und Zustellgebühren übernimmt 
der Verlag. Der Jahresbezugspreis für das Ausland beträgt DM 72,- incl. MwSt., 
zzgl. DM 16,80 Versandspesen. 


am; 


Vertrauensgarantie: 

Ich habe davon Kenntnis genommen, 
daß ich die Bestellung schriftlich 
durch Mitteilung an den Dr. Alfred 
Hüthig Verlag, Postfach 102869, 
6900 Heidelberg 1 innerhalb von 7 
Tagen widerrufen kann. Zur Frist- 
wahrung genügt die rechtzeitige Ab- 
sendung des Widerrufs (Datum des 


Ich wünsche jährliche Berechnung durch: 
[_] Verlagsrechnung [_] Abbuchung von meinem Bank- 
bzw. Postscheckkonto 


Ä 
2 


Poststempels). 

peeker 

Leserservice Bank / PschA 

Postfach 102869 

6900 Heidelberg 1 Sue Kio-Nr. 
Datum Unterschrift 





Für Ihre Unterlagen 
Folgende Bücher bestellt: 





Tepe 


Bitte senden Sie mir gegen Rechnung folgende Bücher: 


am: 
bei: 





peeker 
Versandbuchhandlung 


Postfach 102869 
6900 Heidelberg 1 


Datum Unterschrift 


399999 PEEKER 94 


Bitte senden Sie mir 
gegen Rechnung folgende Apple-Programme: 





Ad Buch-Shop 


Für Ihre Unterlagen 


Folgende Disketten 
und Programme bestellt: 





Softwareabteilung Superquick, Programm, DM 48,- 


Postfach 102869 
6900 Heidelberg 1 


Datum Unterschrift 


Ü 
ale 
A [J Peeker-Sammeldiskette, einzeln DI Apple DOS 3.3, Begleitdiskette, DM 28,- 
Disk# ____, Disk# [I Apple ProDOS, Band 1, Begleitdiskette, 
SL Disk# _____, Disk# DM 28,- 
U Preis je Disk DM 28,- (einzeln) DI ns ED Band 2, Begleitdiskette, 
® U Peeker Sammeldiskeite, OD Apple Assembler, Begleitdiskette, DM 28,- 
oO im Fortsetzungsbezug U] ProDOS-Editor 1.0, Programm, DM 98,- 
ab Disk #+ ___— DI MMU 2.0, Programm, DM 98,— 
am: (Mindestbezug 6 Disketten) OD INPUT 2.0, Programm, DM 98,- 
a Preis je Disk DM 20,- OD) Softbreaker 1.0, Programm, DM 48,- 
a = DI CP/Mja 2 CP/M nein [1 DB-Meister, Programm, DM 290,- 
peeker hr OD Pascal ja OD) Pascal nein = Superplot, Programm, DM 48,— 















Fiema 





Abteilung 





Straße 





PLZ/Ort 

Vertrauonsgarantie: 

Ich habe davon Kenninis genommen, daß Ich dla Bestellung. 
schritlich durch Mitteilung an den Dr, Allred Hüthig Verlag, 
Postlach 102869, 6900 Heidelberg 1 Innerhalb von 

7 Tagen widerrufen kann, Zur Fristwahrung genügt die 
rechtzeitige Absendung des Widerrufs (Datum des 
Poststempels), 


Dalim 





Unterschrift 

Verlagshinweis: 

Das Abonnement -verlängart sich zu den jeweils gültigen 
Bedingungen um ein Jahr, wenn es.nichl 2!Monale vor 
Jahresande schrittlich gekündigt wird. 


a, Abo-Karte 





ei bitte vollständig ausfüllen 








Vorname, Name 





PLZ/Ort 


Telelon mil Vorwahl 


rd Buch-Sho 








Karte bitte vollständig ausfüllen 





Vorname, Name 











Si rad 


Telefon mit Vorwahl 


2 
x 
O 
2 
O 
> 
I 








POSTKARTE 


peeker 
Leserservice 


Postfach 10 2869 
6900 Heidelberg 1 


POSTKARTE 


peeker 
Versandbuchhandlung 


Postfach 10 28 69 


6900 Heidelberg 1 


POSTKARTE 


peeker 
Softwareabteilung 


Postfach 10 28 69 


6900 Heidelberg 1 


INPUT 2.0 


Ein Bildschirm- 
Maskengenerator 

für DOS 3.3 und ProDOS 

von U. Stiehl 

1984, Diskette und Manual, DM 98,— 

ISBN 3-7785-1021-5 

„Input 2,0" liegt wahlweise in der Bank | 
oder Bank 2 der Language Card und wird 
durch einen kurzen Driver in den unteren | 
48K aufgerufen. 

Für jedes Feld der Bildschirmmaske lassen 
sich u.a. definieren: Feldlänge (bis zu 255 
Zeichen) — Vtab — Htab — Datentyp (insge- 
samt 8 Typen) — Scrollflag (starre oder dyna- 
mische Maske) — Ctriflag — Füllflag — Lösch- | 
flag - Bildschirmflag (40- oder 80-Z-Darstel- 
lung). Innerhalb eines Eingabefeldes besteht 
jeder denkbare Redigierkomfort (Insert, De- | 
lete, Rubout, Restore usw.). | 
Gerätevoraussetzung: Apple Ile oder Ilc; fer- 
ner Apple Il+ im 40-Zeichenmodus 


MMU 2.0 


Memory Managements 
Utilities 

für die Apple lle 64K-Karte 

DOS 3.3 (und ProDOS) 


von U. Stiehl 


1984, Diskette und Manual, DM 98,- 
ISBN 3-7787-1023-1 


Insgesamt enthält die neue „MMU 2.0"- 
Diskette über 25 Programme, die neue. 
Einsatzmöglichkeiten für die Extended 80° 
Column Card (erweiterte 80-Z-Karte = 
6A4K-Karte für den Apple Ile} erschließen. 
Ein Teil der Programme laufen auch auf 
dem Apple II Plus, doch ist „MMU 2.0° 
primär für 64K-Karte-Besitzer gedacht. 


Gerätevoraussetzung: Apple Ite mit 64K- 
Karte oder Ilc 


Softbreaker 1.0 


Eine softwaremäßige Interrupt-Utility 
für die Apple Ile 64K-Karte 


von U. Stiehl 


1984, Diskette und Manual, DM 48,- 
ISBN 3-7785-1022-3 


t 
Softbreaker ist ein Assemblerprogramm, mit. 
dessen Hilfe Programme, die sich von der 
64K-Karte (= Extended 80 Column Card für 
den Apple Ile) starten lassen, unterbrochen, 
gespeichert, geladen und exaki an der Stelle: 
der Unterbrechung fortgeführt werden kön-, 
nen. Dadurch ist es auch möglich, Siche- 
rungskopien von sogenannten kopierge- 
schützten Programmen herzustellen. | 
Mit Softbreaker unterbrochene Programme 
werden komplett, d. h. die ganzen 64K ein- 
schließlich Language Card, in nur ca. 11 Se-: 
kunden auf einer formatierten Diskette gesi-: 
chert. 
Gerätevorausseizung: Apple lie mit SaK- 
Karte 


3 
; 


Hüthig Software Service, 
Postfach 10 28 69, D-6900 Heidelberg 


ei he 


m. 





_ MCIXTI6PC 
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Börse 





Es geht doch: APPLEWORKS 
auf II+ u. Kompatiblen. Info: Fa. 
Paul Arping, T. 04317/737135 


Börsen-Programme für Apple 
II gesucht. Angebote an Nortmann, 
Schaperstr. 24, 6200 Wiesbaden, 
1.061 21-527820 


Horoskop-Programme für 
Apple II gesucht, Angebote an 
Nortmann, Schaperstr. 24, D-6200 
Wiesbaden, T, 061 21-52 7820 


Apple 256-KB-RAM-Floppy 
349,- DM, 128-KB-Karte 249, - 
DM mit Softw. Accelerator-Karte 
599,-— DM, TFM II Supermodem 
300, 1200, 1200/75 Bd. nur 478,- 
DM — FUCOM GmbH, Postf. 483, 
4600 Dortmund 1 


Hard- und Software für Apple- 
Computer gesucht. Wer schreibt 
gute Software? Auch Gebrauchtes 
angenehm. Zahle Höchstpreisel 
Suche noch Leute, die nebenbei 
Zuschriften 


verdienen wollen. 
Chiffre P1005 






1 





Komp 48 


Komp 64 
54 K, 6502, Z-80, 15er-Block 
ohne Firmware 









| SR Motherboard 64 K 
u wie oben, mit 6502 und 











. XTI6LC 
16 Bit 8088 Rechner 
vollständig kompatibel, 
ausgerüstet mit: 
Monochr. Grafik-Karte, 
256 KRAM, 
1 Drive, 360 K, 
grüner Grafikmonitor, 


deutsche Tastatur, 
130 W Netzteil 


AT 16LC 
mit 6 MByte Hard Disk 
AT 16 WLC 
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Komp 645 
wie Komp 54, jadoch mit abgesetzter 
Tastatur mit 188 Funktionen. 


1899 DM 
3099 DM 


nderungen, die technischen Verbesserungen dienen, 





Auf alla Geräte 6 Monate Garantie » 


** Neue Bücher für den Apple II xx 
Elektronik- und Graphik-Pro- 
gramme 

Die Programm-Fundgrube zu fol- 
genden Themen: Statistik, Filter, 
Netzwerke, Laplace- und Fourier- 
Transf,, Komplexe Rechnung, Dia- 
gramme usw., zahlr. Abb., 184 S., 
16,5 x 23,5 cm, DM 39,80 

Apple II — leicht program- 
miert 

Der Wegweiser zum eigenen Pro- 
gramm: Zählen, Schleifen, Strings, 
Eingabe, Druckformatierung, Adress- 
verw. usw, 96 5, 165x 235 cm, 
DM 22,80 

BASIC-Tricks für den Apple II 
Die Trickkiste für die professionelle 
Programmgestaltung: Eingabe, Me- 
nüs, Sortieren, Listengestaltung, 
Fehlererkennung/Korrektur, Datei- 
en usw., 144 S., 16,5 x 235 cm, 
DM 29,80 

Bei Bestellung bitte DM 2,50 für 
Porto und Verpackung addieren. 
beam-Verlag, 

Pf. 1148P, 355 Marburg 


eenttnnnntnnn 


TIT yr zer Ir 


! 


+Kompatible ° Een 







48 K. 6502 ohne Firmware Be 







ya0,- 


Motherboard 48 K 399,- 
\ 8Slots, alle IG's gesockelt, a 
ohne Firmware, fertig geprüft El 


Härd-, Soflware 


4 4 F f hi n | | 7 30, 64 K | | N 

En WITHIN FIT BENENEEN N AN N viertstr. 3-13 
Alle Preise inklusive Mehrwertsteuer. 6 Monate A 

Garantie Versand erfolgt per NN oder Vorkasse ! 





A 6233 Kelkheim 






| ORIGINAL 


mit Kabel + Gehäuse 

















393- Klaus Jeschke 


AANN = (06138) 7523 


a SUPERPREISE 


| FLÜSTER-FLOPPY 
} CHINON F-051A für Apple 


Peeker-Termine 


Ausgabe Anzeigenschluß Erstverkaufstag 
1 2235 23205 















1.86 17.22.86 


3 174 
5 21: 


| 18. 4.86 20. 5.86 
23.0:3.00 23.26.86 


6 es: 
7 wo: 
9 


Für Apple Il, Ile 


&0-Zeichen-Karle 
mit Sorftswitch, neue 
Vers. m. gest. scharl. Bild 


Spooch-Karte 

Ciock-Karte 
Supor-Serial-Karlo 

Komp 2E 

Apple ZE kompatible, Rechner 
&d Kim 2E-Design, ohne Firmware nn 
802 + 64K-Karte 9-8 
für ZE kompatible MO 
Appie-Info 1,- DM (Porto) NE 


utspepuli 
u | l 


Z-80-Karto ö9,- 139- I 
Disk-Interfaco 60, 
16-K-RAM-Karte 69,- 
RS-232-Karto 109,- 
Eprommar (4, B, 16 K) 139,- 
128-K-RAM-Karte 270,- 
256-KB-RAM-Karle A48,- 
Wild-Karte 69,- 
(knackt geschützte Programme) 
> Händleranfragen erwünscht! 


190,- - - Tı= . 
I97,- | 


I | 





Neue Teac’s 
TEAC FD55B 349DM 
46 ipi 2 x 40 track 500 KByte 
TEAG FD55F 399 DM 
95 tpi2x8ßtrack 1 MByte 

3,5“ Pana. JU 323 349DM 
67,5 1pi2 x 40 track 500 KByte 

3,5" Pana. JU 363 449DM 
135012 x 80 track 1 MByte 
CHINON F-502 399 DM 
481pi2 x 40 track 500 KByte 
AppleAFD55A 339DM 
mit Kabel! und Gehäuse 
STATIONEN 
on s en AZ JDN 5060 Bergisch Gladbach 2 
Fertiggerät 1499 DM Wi H 121.(02202) 31007 - Tx. 8873518 


vorbehalten» Lieferbedingungen auf Anfrage - Lieferung solange Vorrat reicht - 


| @ MX 80 + Graftrax Compatible 
® 100 Zeichen/9x1 1 Matrix,6Zeichensätze 
® Parallel + RS232, Einzelblatt u. Traktor 
= 599 DM 


=:{G Postfach 200401 
m M J.-W.-Lindlar-Straße 8 
m EB 





349 DM 


29 

















von Harald Grumser 


30 


Der Applesoft-Interpreter bietet eine Fülle von 
Routinen, die z.T. über recht unkomplizierte 
Schnittstellen verfügen oder auch nur durch 
„JSR“ oder „CALL“ aufgerufen werden kön- 
nen. Die im folgenden zusammengestellte Ta- 
belle umfaßt solche Unterprogramme und Rou- 
tinen, die mit sinnvollem und vertretbarem Auf- 
wand in eigene Programme aufgenommen wer- 
den können und erhebt daher auch nicht den 
Anspruch auf Vollständigkeit, da selbstver- 
ständlich eine subjektive Auswahl getroffen 
wurde. 

Voraussetzung für das genaue Verständnis aller 
hier aufgeführten Routinen ist die Kenntnis der 
Arbeitsweise des Interpreters, die hier nicht 
vermittelt werden kann. Diese Aufstellung soll 
aber auch helfen, tiefere Einblicke zu gewinnen. 


Einige der erwähnten Routinen scheinen sehr 
beschränkte Anwendungsmöglichkeiten zu bie- 
ten, doch würde eine engere Vorauswahl den 
Programmierern nicht gerecht werden, die in 
der Lage sind, durch geeignete Hilfsmittel (In- 
tercept-Programmierung, CHRGET-Manipula- 
tion) auch umfangreichere Applikationen zu er- 
stellen. 

Obwohl die Ausführungen der einzelnen Ap- 
plesoft-Befehle (im folgenden wird Applesoft 
durch A/S abgekürzt) nicht immer für eigene 
Aufrufe geeignet sind, wurden einige in die 
Tabelle aufgenommen, um auf etwaige Beson- 
derheiten aufmerksam zu machen. 

Eine detaillierte Schilderung aller Routinen wür- 
de ein Buch füllen. Daher wurden im wesentli- 
chen nur die Parameter aufgeführt, die im Zu- 
sammenhang mit dem entsprechenden Aufruf 
von Bedeutung sind. Es sollte sich von selbst 
verstehen, daß z.B. zur Durchsuchung eines 
Programms nach einer bestimmten Zeilennum- 
mer die entsprechenden Programmzeiger ge- 
setzt sein müssen. 

Die Tabelle ist nach Sachgebieten gegliedert, 
um ein einfacheres Auffinden der benötigten 
Routinen zu erleichtern. Diese Zuordnung kann 
jedoch nicht immer eindeutig festgelegt werden 
und sollte nur als Anhaltspunkt verstanden 
werden. 


; = er r +1 ’ Am. e% | 2 | ar 
Fa Suld „ij Sm x I J 
‚| E | ; I j | Pr, | I 1 u | u j . 
4 ie: = Im 233 Aa | en ia d J -__ Ai = —k | I = 
Br Mm. Mr ri \ 8’ f mr 11 jr | j a 
5 Er Ir Fr m. w 
j ur N. F # a 


Tabelle der wichtigen 
Applesoft-Interpreter- 
Routinen 


Die Label-Namen entstammen den Bezeich- 
nungen, die schon W.F. Luebbert in seinem 
Buch „What's Where in the Apple” benutzte 
und stützen sich darüber hinaus auf das kom- 
mentierte Assemblerlisting von G. Bredon. Eini- 
ge wenige Labels sind anderen Quellen ent- 
nommen. 


Alle Angaben beziehen sich auf den alten A/S- 
Interpreter, wie er im Il+ und Ile implementiert 
wurde. Abweichungen des Interpreters des IIc 
und des neuen Ile (Enhanced Ile) werden ge- 
sondert angegeben. (Siehe auch „Die neuen 
ROMs für den Apple Ile“, Teil 3, Peeker 10/85, 
S. 34.) 


Bei der Erklärung der einzelnen Routinen sind 
im Text z.T. die symbolischen Labels aufge- 
führt, deren Adresse unter den Rubriken stets 
aufgeführt sind (mit Ausnahme von TXTPTR = 
$00B8, $00B9), um langes Suchen zu erspa- 
ren. Wegen der sehr unterschiedlichen Nutzung 
des Hauptfließkomma-Akkus (FAC) wurde die- 
ser stets aufgeführt. Die Adressenangaben be- 
ziehen sich dabei auf die in dieser Routine 
relevanten Abschnitte von FAC. Da der Text- 
pointer bei der Auswertung eines Befehls im- 
mer weitergerückt wird, ist dies nicht besonders 
vermerkt. Wenn nicht anders angegeben, en- 
den die Routinen mit RTS. 

In der Tabelle der Zero-Page-Variablen sind 
alle Adressen aufgeführt, die in dieser Aufstel- 
lung benutzt werden. Diese Tabelle bietet wei- 
tergehende Informationen über die Bedeutung 
der einzelnen Speicherstellen. 


— Unter der Rubrik Vorher sind alle Eingabepa- 
rameter zusammengestellt, die vor Aufruf ent- 
sprechend gesetzt werden müssen. Dabei be- 
deutet 

A = Akkumulator, 


X = X-Register, 
Y = Y-Register, 
5 = Stackpointer, 
Z = Zero-Flag, 

C = Carry-Flag. 
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Ist diese Rubrik nicht angegeben, so kann der 
Aufruf durch einfaches „JSR" erfolgen. Muß 
beim Aufruf kein Prozessorregister gesetzt wer- 
den, so eignet sich diese Routine auch für einen 
„CALL“-Befehl aus A/S. Die dezimale Adresse 
entnehme man der Tabelle der aufgeführten 
Routinen. 

— Die Rubrik Aufruf deutet auf eine Besonder- 
heit bei der Benutzung hin, wie z.B. ein erfor- 
derlicher vorangehender „JSR CHRGET"-Be- 
fehl. 

— Unter Nachher werden die Ausgabeparameter 
aufgeführt, die als Resultat erwünscht sind. Än- 
derungen anderer Variablen werden hier nicht 
berücksichtigt. Bei einigen Routinen ist wichtig 
zu wissen, welche Register erhalten bleiben. In 
diesem Fall wird z.B. der unveränderte Inhalt 
des Akkus durch „A =" gekennzeichnet. 


Wird im Text auf eine andere aufgeführte Routi- 
ne verwiesen, so ist dieser ein „f “ vorange- 
stellt. Referenzen auf A/S-Befehle sind durch 
Anführungszeichen gekennzeichnet. 
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1. Programmsteuerung 


1.1. Applesoft-Befehle 
1.1.1. Einfache Befehle 


RUN ($D566) - führt das A/S-Programm im 
Speicher aus (entspricht nicht dem „RUN"- 
Befehl, da kein konditioniertes RUN mit Zeilen- 
angabe möglich ist). 


STOP ($D86E) - führt „STOP“ aus. Dabei wer- 
den TXTPTR und CURLIN für „CONT“ gerettet. 
Danach erfolgt unabhängig von „ONERR" eine 
„BREAK“-Meldung und ein Warmstart (? RE- 
START). 

Vverher G - 1:2 - |. 

Nachher: OLDTXT ($0079, $007A) = TXTPTR; 
OLDLIN ($0077, $0078) = CURLIN ($0075, 
60076). 


END ($D870) — beendet das Programm und 
springt nach TRESTART. Dies entspricht 
1 STOP, es wird jedoch keine Meldung ausge- 
geben. 

Vorher: Z=1. 

Nachher: siehe ? STOP. 


CONT ($D896) - versucht das unterbrochene 
Programm fortzuführen. Ist dies nicht möglich 
(z.B. nach Änderung des Programms oder 
„CLEAR"), erfolgt ein Sprung nach } ERROR. 
Vorher: OLDTXT ($0079, $007A) = Zeiger auf 
nächsten A/S-Befehl - 1; OLDLIN ($0077, 
$0078) = Zeilennummer des nächsten Befehis. 
Aufruf: JISR F CONT, JMP } NEWSTT, 
Nachher: ERRNUM ($00DE) = $D2, falls kein 
„CONT" möglich. 


TRACE ($F26D) - setzt das Trace-Flag. 
Nachher: TROFLG ($00F2) >= $80. 


NOTRACE ($F26F) — löscht das Trace-Flag. 
Nachher: TRCFLG ($00F2) < $80. 


NORMAL ($F273) - setzt den Normal-Ausga- 
bemodus. 

Nachher: INVFLG ($0032) = $FF; ORMASK 
($00F3) = $00. 


INVERSE ($F277) - setzt den Invers-Ausgabe- 
modus, 

Nachher: INVFLG (80032) = $3F; ORMASK 
($00F3) = $00. 


FLASH ($F280) - setzt den Flash-Ausgabe- 
modus. 

Nachher: INVFLG ($0032) = $7F; ORMASK 
($OOFS) = $40. 


RESTORE ($D849) - setzt den DATA-Zeiger 
auf den Programmanfang - 1. 

Nachher: DATPTR ($007D, $007E) = TXTTAB 
(60067, $0068) - 1. 


LOAD ($D8C9) - lädt ein A/S-Programm via 
READ ($FEFD) von Kassette. Dabei wird auch 
das LOCK-Byte eingelesen, Diese Routine ent- 
fällt beim Ilc. 


SAVE ($D8B0) - sichert das A/S-Programm via 
WRITE ($FECD) auf Kassette. Dabei wird zu- 
nächst die Programmlänge, dann das LOCK- 
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Byte und zuletzt das Programm gespeichert. 
Diese Routine entfällt beim lic. 

Vorher: LOCK ($00D6) = $80, um Programm 
bei jeder Eingabe zu starten. 


STORE ($F39F) — führt „STORE“ aus mittels 
Monitor-Routine WRITE ($FECD). Diese Routi- 
ne entfällt beim Ilc. 


RECALL ($F3BC) - führt „RECALL“ aus mit- 
tels Monitor-Routine READ ($FEFD). Diese 
Routine entfällt beim Ilc. 


SHLOAD ($F775) - liest eine Shape-Tabelle 
mittels der Monitor-Routine READ ($FEFD) von 
Kasette unterhalb von HIMEM ein und setzt die 
entsprechenden Zeiger. Diese Routine entfällt 
beim IIc. 

Nachher: MEMSIZE ($0073, $0074) = FRETOP 
($006F, $0070) = SHPTAB ($00E8, $00E9) = 
HIMEM - Tabellenlänge. 


1.1.2. Befehle mit Parametern 


RUNLINE ($D91B) - führt ein konditioniertes 
„RUN“ aus (entspricht „CLEAR : GOTO n"), 
Nach dem Aufruf von TCLEÄRC erfolgt ein 
Sprung zu ? GOLINE. 

Vorher: siehe f GOLINE. 


LET ($DA46) — weist der folgenden Variablen 
den nach dem „="-Zeichen angegebenen 
Ausdruck zu. Stimmen die beiden Typen nicht 
überein, erfolgt f TMMERR. Diese Routine ruft 
T PTRGET und f FRMEVL auf und benutzt bei 
string-Variablen einige String-Routinen. 
Vorher: TXTPTR = Zeiger auf ersten Buchsta- 
ben des Variablennamens. 

Nachher: FORPNT ($0085, $0086) = Zeiger auf 
vorgefundene oder neu angelegte Variable; an- 
sonsten siehe f FRMEVL. 


LIST ($D6A5) — führt „LIST" aus und springt 
nach T NEWSTT (siehe ? MAINLIST). 

Vorher: TXTPTR = Zeiger auf erstes Zeichen 
der Bereichsangabe - 1 (z.B. „100, 200“) mit 
Bit 7 = O und $00 oder „:“ als Endmarker. 


Aufruf: Register durch JSR } CHRGET setzen. 


DEL ($F331) - löscht den angegebenen Zeilen- 
bereich und alle Variablen (entspricht „DEL"). 
Vorher: TXTPTR = Zeiger auf 1. Zeichen vor 
Zeilenbereichsangabe. 

Aufruf: Register durch JSR # CHRGET setzen. 


GOTO ($D93E) — setzt die Programmzeiger auf 
die angegebene Zeile, indem das Programm 
nach dieser durchsucht wird. Die Suche erfolgt 
abhängig von der aktuellen Zeile nach oben bis 
zum Programmende oder vom Programman- 
fang aus. Wird die Zeile nicht gefunden, so 
verzweigt die Routine zu T UNDERR. 

Vorher: TXTPTR = Zeiger auf Zeilenangabe - 1. 
Aufruf: Register durch JSR T CHRGET setzen. 
Die Ausführung der neuen Zeile erfolgt erst 
nach Aufruf von T NEWSTT. 

Nachher: TXTPTIR = Zeiger auf neue Zelle; 
LINNUM ($0050, $0051) = neue Zeilen- 
nummer. 


GOSUB ($D921) — führt „GOSUB" aus. Diese 
Routine überprüft zunächst mittels T CHKSTK, 
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ob der :Stack noch 6 Bytes aufnehmen kann. 
Nach dem Ablegen des TXTPTR, der aktuellen 
Zeilennummer und dem „GOSUB"-Token 
($B0) geht sie dann in ? GOLINE über. 

Vorher: siehe T GOLINE. 


ONGOTO ($D9EC) - führt „ON | GOTO (GO- 
SUB)“ aus. Dabei wird zunächst der Index | 
mittels T GETBYT eingelesen und der TXTPTR 
auf die I. Zeilenzahl gesetzt, um dann mit dem 
„GOTO"- oder „GOSUB"-Token im Akku nach 
T GOCMD zu springen, 

Vorher: TXTPTR = Zeiger auf Index. 


POP ($D96B) - holt einen „GOSUB"-Eintrag 
vom Stack. Dabei werden alle in diesem Unter- 
programm geöffneten „FOR-NEXT"-Schleifen 
abgeschlossen. Wurde kein Unterprogramm 
aufgerufen (kein „GOSUB"-Token auf dem 
Stack), verzweigt das Programm zu 
TRWGERR. Enthält das Y-Register den Wert 
$42, wird „POP“ durchgeführt und die Pro- 
grammzeiger belassen. 

Im anderen Fall werden die Programmzeiger 
vom Stack geholt und eingesetzt. Die Routine 
geht dann in T DATA über, um die Zeiger auf 
das Ende des (ursprünglichen) Befehls zu 
setzen. 

Vorher: Y = $42 führt „POP“ aus, ansonsten 
„RETURN“. 

Aufruf: Die Ausführung des nächsten A/S-Be- 
fehls fährt erst nach Aufruf von T NEWSTT fort. 
Nachher: TXTPTR = Zeiger auf neuen Befehl 
(nur bei „RETURN“); CURLIN ($0075, $0076) 
= neue Zeilenummer {nur bei „RETURN"). 


IF ($D9C9) — wertet den nachfolgenden Aus- 
druck aus und prüft, ob „THEN“ oder „GOTO" 
folgt, um ggf. nach T SYNERR zu springen. Ist 
der Ausdruck falsch, wird F REM ausgeführt, 
um den Rest der Zeile zu überspringen. Ist er 
richtig, wird bei nachfolgender Zahl zu T GOTO 
gesprungen, ansonsten zu TGOCMD. 

Vorher: TXTPTR = Zeiger auf logischen Aus- 
druck. 


HIMEM1 ($F28C) — setzt den Üübergebenen 
Wert als neuen HIMEM-Wert ein. Falls dieser 
kleiner als das Ende der Variablen ist, erfolgt 
4 MEMERR. Eine Überprüfung für die Ober- 
grenze findet nicht statt. 

Vorher: LINNUM ($0050, $0051) = einzuset- 
zender HIMEM-Wert. 

Nachher: MEMSIZE ($0073, $0074) = FRETOP 
($006F, $0070) = neuer HIMEM-Wert. 


LOMEM1 ($F2AC) - setzt den übergebenen 
Wert als neuen LOMEM-Wert ein. Falls dieser 
größer als „HIMEM" und Kleiner als der aktuelle 
LOMEM-Wert ist, erfolgt T MEMERR. Durch ei- 
nen Sprung nach ? CLEARC werden alle Varia- 
blen gelöscht. 

Vorher: LINNUM ($0050, $0051) = einzuset- 
zender LOMEM-Wert. 

Nachher: siehe T CLEARC. 


1.2. Manipulation des Textpointers 


DATA ($D995) - setzt TXTPTR auf das Ende 
des aktuellen Befehls, d. h. auf „:“ oder $00. 
Nachher: TXTPTR = Zeiger auf Befehlsende. 


DATAN ($D9A3) — zählt die Zeichen ab 
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TXTPTR bis zum nächsten „:" (nicht in Hoch- 
komma) oder $00. 

Vorher: TXTPTR = Zeiger auf Programmtext. 
Nachher: Y = Anzahl der Zeichen. 


REM ($D9DC) — setzt TXTPTR auf das Ende der 
aktuellen Zeile, d. h. auf $00. 
Nachher: TXTPTR = Zeiger auf Zeilenende. 


REMN ($D9A6) — zählt die Zeichen ab TXTPTR 
bis zum nächsten $00. 

Vorher: siehe T DATAN. 

Nachher: Y = Anzahl der Zeichen. 


ADDON ($D998) — setzt TXTPTR um die ange- 
gebene Anzahl von Zeichen weiter. 

Vorher: Y = Anzahl der Zeichen. 

Nachher: TXTPTR = TXTPTR + Y. 


STRTXT ($DE81) — übergeht ein Zeichen 
(i.allg. Hochkomma), führt TSTRLIT aus und 
setzt den Textpointer hinter den Siring. 

vorher: GC = 1; TXTPTR = Zeiger auf letztes 
Zeichen vor eigentlichem String. 

Nachher: TXTPTR = Zeiger auf erstes Zeichen 
nach String; ansonsten siehe T STRLIT, 


1.3. Auswertung 


CHRGET ($00B1) - liest das nächste Zeichen 
des Programmtextes in den Akku und über- 
springt Leerzeichen. Diese Routine wird beim 
Kaltstart in die Zero-Page kopiert. 

Vorher: TXTPTR = Zeiger auf letztes eingelese- 
nes Zeichen. 

Nachher: TXTPTR = TXTPTR + 1 (falls kein 
Leerzeichen); Z = 1, wenn End-of-Statement- 
Zeichen ($00, „:"); C = 1, wenn Ziffer ($30- 
$39); A = eingelesenes Zeichen. 


CHRGOT ($00B7) - liest das Zeichen, auf das 
TXTPTR verweist, in den Akku und überspringt 
Leerzeichen. 

Vorher: TXTPTR = Zeiger auf einzulesendes 
Zeichen. 

Nachher: siehe T CHRGET. 


FRMEVL ($DD7B) — wertet den durch den 
Textpointer bezeichneten Ausdruck (auch Ver- 
gleiche) aus, bis ein EOS („:" oder $00) folgt. 
Diese Routine stellt ein Kernstück des Interpre- 
ters dar und benutzt eine große Anzahl von 
Unterprogrammen. Der Ausdruck wird im 
Hauptfließkomma-Akku abgelegt, entweder als 
Deskriptor (Länge und Adresse des Strings) 
oder als Fließkommazahl (1 Byte Exponent, 4 
Bytes Mantisse, ungepackte Form). 

Vorher: TXTPTR = Zeiger auf 1. Zeichen des 
Ausdrucks. 

Nachher: FAG ($009D-$00A1) = Fließkomma- 
zahl, beinum. Ausdruck; FACSIGN ($00A2) = 
Vorzeichen, bei num. Ausdruck; FAC ($009D- 
$009F) = Deskriptor, bei String; VALTYP 
(80011) = Flag für Typ (600 = Zahl, $FF = 
string). 


FRMNUM ($DD67) — wertet den durch den 
Textpointer bezeichneten Ausdruck via 
*FRMEVL aus. Liegt kein numerischer Aus- 
druck vor, erfolgt die Meldung „TYP MIS- 
MATCH“. 

Vorher: sehe T FRMEVL. 

Nachher: siehe T FRMEVL, 


GETVAL ($DE60) - wertet einen durch den 
Textpointer bezeichneten Ausdruck aus. Diese 
Routine ist das wichtigste Werkzeug von 
* FRMEVL. Zu Beginn der Routine wird festge- 
legt, ob es sich um einen der folgenden Typen 
handelt: Variablenname, Zahl als ASCII-Folge 
(Bit 7 = 0), String in Hochkomma, Minuszei- 
chen, NOT-Befehl, FN-Befehl, Funktionsaus- 
druck. Ansonsten wird eine geöffnete Klammer 
erwartet und ? FRMEVL rekursiv aufgerufen. 
Hier ist das Zeichen zur Erkennung des Aus- 
drucksendes vom Typ abhängig. 

Vorher: TXTPTR = Zeiger auf letztes Zeichen 
vor Ausdruck. 

Nachher: siehe f FRMEVL. 


PARCHK ($DEB2) - ruft T CHKOPN auf und 
springt nach ? FRMEVL. 

Vorher: siehe  SYNCHR. 

Nachher: siehe T FRMEVL. 


GETBYT ($E6F8) — wertet den folgenden Aus- 
druck als Integer zwischen O und 255 aus. 
Stimmen Typ oder Wertebereich nicht überein, 
erfolgt eine Fehlermeldung. 

Vorher: TXTPTR = Zeiger auf erstes Zeichen 
des Ausdrucks. 

Nachher: X = FAC+4 ($00A1) = ausgewerteter 
Ausdruck; A = erstes Zeichen nach Ausdruck. 


GTBYTC ($E6F5) -— ruft TCHRGET auf und 
geht in } GETBYT über. 

Vorher: TXTPTR = Zeiger auf auszuwertenden 
Ausdruck - 1. 

Nachher: siehe T GEIBYT. 


GETNUM ($E746) — wertet die zwei folgenden 
Ausdrücke als Zahlen aus, die durchein Komma 
getrennt sein müssen. Die erste Zahl darf im 
Bereich 0-65535 liegen, die zweite zwischen 0 
und 255. 

Vorher: TXTPTR = Zeiger auf erstes Zeichen 
des ersten Ausdrucks. 

Nachher: LINNUM ($0050, $0051) = 
Zahl; X = FAC+4 ($00A1) = zweite Zahl. 


erste 


LINGET ($DA0C) — wertet eine Zahl (0-64000) 
als ASCII-Folge (Bit 7 = 0) aus. 

Vorher: TXTPTR = Zeiger auf erstes Zeichen - 
je 

Aufruf: Register durch JSR } CHRGET setzen. 
Nachher: LINNUM ($0050, $0051) = ausge- 
wertete Zahl. 


PTRGET ($DFE3) — sucht die angegebene Va- 
riable in der Variablenliste. Durch SUBFLAG 
kann bestimmt werden, ob auch Integer-Varia- 
blen gesucht werden sollen. Falls nicht, erfolgt 
bei Integer-Variablen die Meldung „SYNTAX“. 
Existiert die Variable oder das Array-Element 
nicht, wird neu angelegt (bei Arrays nur bei 
kleinerem Index als 11). 


Vorher: TXTPTR = Zeiger auf 1. Buchstaben 
des Namens; SUBFLAG ($0014) = Flag für 
Integer (Bit 7 = 1: keine Integers erlaubt). 
Nachher: VARPNT ($0083, $0084) = Zeiger auf 
Variableninhalt. 


Fortsetzung Seite 50 
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I. Allgemeines 


1. Pascal und BASIC 


Kennen Sie einerseits Applesoft-BASIC und 
haben Sie andererseits von Pascal keinen 
„Schimmer einer Ahnung“? Dann ist der erste 
Teil unseres Kompaktkurses für Sie bestens 
geeignet. Als BASIC-Programmierer können 
Sie hier überraschend schnell in Pascal einstei- 
gen, denn wir haben uns im ersten Teil auf 
diejenigen Befehle beschränkt, die Ihnen in 
ähnlicher Form von Applesoft her bereits be- 
kannt sind. Dies sind immerhin weit mehr als die 
Hälfte aller Pascal-Befehle. Jedem Pascal-Be- 
fehlsbeispiel wird das entsprechende Ap- 
piesoft-Pendant vorangestellt, so daß Sie Zeile 
für Zeile Applesoft mit Pascal vergleichen und 
auf diesem Wege die Besonderheiten von Pas- 
cal erlernen können. 

Es dürfte nicht wenige Pascal-Puristen geben, 
die eine Kontrastierung von Pascal mit BASIC 
für einen didaktisch falschen Ansatz halten, wie 
überhaupt Pascal-Anhänger gelegentlich etwas 
doktrinäre Ansichten vertreten. Wir sind hier 
ganz anderer Meinung. Wenn jemand bereits 
BASIC und womöglich auch Assembler gelernt 
hat, dann wäre es völlig abwegig, nicht auf 
diesem Wissen aufbauen zu wollen. Außerdem 
ist Pascal keine „heilige“ Sprache. Sie hat 
zweifelsohne ihre Vorzüge, aber auch ebenso 
ihre Mängel. 


Listing a 

Das abgedruckte Listing KURS1 ist die UCSD- 
Version (lauffähig unter Apple-Pascal 1.1 und 
1.2), die auf der Peeker-Sammeldisk #10 unter 
dem Dateinamen UCSD.TEXT abgelegt ist. Au- 
Berdem befindet sich auf derselben Sammel- 
disk die Turbo-Version namens TURB.PAS 
(lauffähig unter CP/M-Turbo-Pascal 3.0). Bei 
der Turbo-Version wurden aus Platzgründen die 
Applesoft-Kommentare gestrichen, damit direkt 
im Arbeitsspeicher compiliert werden kann. Au- 
Berdem waren einige Anpassungen erforder- 
lich. 


Definitionen 

Standard-Pascal = von Niklaus Wirth, Schweiz, 
in den Jahren 1968-1973 entwickelte und nach 
Blaise Pascal benannte Programmiersprache, 
die im zweiten Teil vom „User Manual and 
Report“ (Springer-Verlag) definiert wird. 
UCSD-Pascal = an den Apple Il{+/e/c) unter 
6502 stark angepaßtes, spezielles UCSD-Pas- 
cal (UCSD = University of California in San 
Diego) mit eigenem Diskettenbeiriebssystem; 
neueste Version 1.2; Hersteller: Fa. Apple, 
USA. 

Turbo-Pascal = an’ den Apple Il(+/e/c) unter 
Z80 schwach angepaßtes, spezielles Turbo- 
Pascal mit normalem Apple-CP/M-Beitriebssy- 
stem (z.B. CP/M 2.26); neueste Version 3.0; 
Hersteller: Fa. Borland, USA. 


2. Editor und Compiler 


BASIC ist normalerweise als Interpretersprache 
implementiert, wenngleich beispielsweise zu 
Applesoft verschiedene Compiler erhältlich 
sind. Pascal ist demgegenüber normalerweise 
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als Compilersprache implementiert; dies gilt na- 
mentlich für UCSD- und Turbo-Pascal. Bei einer 
Compilersprache muß zunächst der Quelltext 
(Source-Text) mit einem Editor erstellt und 
dann auf Diskette gespeichert werden {in 
UCSD-Pascal mit dem Suffix „.TEXT“, in Tur- 
bo-Pascal mit dem Suffix „.PAS", also z.B. 
DEMO.TEXT oder DEMO.PAS). Der Editor ist 
im Prinzip wie ein gewöhnliches Textverarbei- 
tungsprogramm aufgebaut, doch darf nicht völ- 
lig „endlos“, d.h. ohne jegliche Returns, ge- 
schrieben werden. Praktisch heißt dies, daß ei- 
ne Quelltextzeile normalerweise nicht mehr als 
78 Zeichen umfassen sollte. Ein Programm, d.h. 
die Summe der Quelltextzeilen, könnte folgen- 
dermaßen aussehen: 


PROGRAM DEMO; 
BEGIN 

WRITELN (Demo’) 
END. 


Der fertige Quelltext dieses Mini-Programms 
wird auf der Diskette gespeichert und läßt sich 
dann mit Hilfe eines Compilers zu einem lauffä- 
higen Objektcode compilieren, der auf der Dis- 
kette in UCSD-Pascal mit dem Suffix „. CODE“ 
und in Turbo-Pascal mit dem Suffix „.COM" 
abgelegt wird (also z.B. DEMO.CODE oder DE- 
MO.COM). Der UCSD-Compiler erzeugt jedoch 
nur einen pseudo-compilierten Objektcode (= 
P-Code), der insofern unselbständig ist, als er 
von dem sog. P-Code-Interpreter abgearbeitet 
werden muß, während der Turbo-Compiler ei- 
nen reinen Z80-Objektcode erzeugt, der unab- 
hängig von Turbo-Pascal wie eine normale CP/ 
M-COM-Datei gestartet werden kann. Damit 
kann man auch Turbo-Pascal-Programme an 
Personen weitergeben, die über Turbo-Pascal 
gar nicht verfügen. 

(Editor und Compiler .sowie das UCSD- bzw. 
CP/M-Betriebssystem können aus Platzgrün- 
den hier nicht behandelt werden.) 


3. UCSD- und Turbo-Pascal 


Für die Programmentwicklung unter UCSD- 
Pascal ergibt sich folgender Zyklus: 

1. Quelltext im Editor schreiben oder ändern. 

2. Quelltext auf Diskette speichern. 

3. P-Code mit Compiler auf Diskette erzeugen. 
Nach Fehlermeldungen zurück zu 1. 

4. P-Code aus dem UCSD-Betriebssystem her- 
aus über den Run-Befehl von der Diskette 
starten. 

Unter Turbo-Pascal, das im wesentlichen aus 
der sehr kompakten Datei TURBO.COM be- 
steht, die Editor und Compiler vereint, ergeben 
sich demgegenüber folgende Varianten: 

1. Quelltext im Editor schreiben oder ändern. 

2. Quelltext auf Diskette speichern. 

3. Objektcode wahlweise auf Diskette oder di- 
rekt im Speicher erzeugen (letzteres nur bei 
kleineren Quelltexten). Nach Fehlermeldungen 
zurück zu 1. 

4. Objektcode wahlweise aus dem CP/M-Be- 
triebssystem heraus von der Diskette oder im 
Speicher aus dem Turbo-Menü heraus über 
den Run-Befehi starten, (letzteres nur bei klei- 
neren Objektcodes). 
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„Kleinerer“ Quelltext und Objektcode besagt, 
daß man unter Turbo-Pascal je nach CP/M- 
Version bis zu ca. 30K für Text und Code zur 
Verfügung hat, was für Anfängerprogramme im- 
mer ausreicht. Da man somit unter Turbo-Pas- 
cal wie ein „Wirbelwind“ (lat. „turbo") zwischen 
Edit, Compile und Run ohne jeglichen Disket- 
tenzugriff wechsein kann, eignet sich Turbo- 
Pascal besser für Anfänger, die nach der „Ver- 
such-und-Irrtum"-Methode lernen, während 
UCSD-Pascal mehr für systematische „Papier- 
und-Bieistift“-Programmierer gedacht ist, de- 
nen selten ein Tipp- oder Denkfehler unterläuft. 
Nehmen wir als Beispiel unseren KURS1: Die 
reine Compilierungszeit beträgt hier unter 
UCSD-Pascal 130s; hinzu kommen bis zu 10s 
für jeden Editor-, Compiler- oder Run-Modus- 
Wechsel, so daß ein Edit-Compile-Run-Zyklus 
mehr als 150s einnimmt. Demgegenüber dauert 
unter Turbo-Pascal die reine Compilierungszeit 
ca. 10s, und der Edit-Compile-Run-Wechsel ist 
praktisch „blitzartig“. Hinzu kommt ferner, daß 
erstens der Turbo-Objektcode schneller als der 
UCSD-P-Code abgearbeitet wird und daß zwei- 
tens Turbo-Pascal problemlos mit 1 Disketten- 
laufwerk betrieben werden kann, während man 
bei UCSD-Pascal wegen des riesigen Betriebs- 
systems als 1-Drive-Besitzer am besten gieich 
gar nicht anfängt. Aus alledem könnte man 
schließen, daß Turbo-Pascal erheblich besser 
als UCSD-Pascal sei. Dem ist jedoch nicht so. 
Beide Pascal-Versionen haben ihre Vor- und 
Nachteile. UCSD-Pascal ist besser an den Ap- 
ple angepaßt (mit implementierter Turtle-Grafik, 
mit einem gesonderten 6502-Assembler usw.), 
während zusätzliche Turbo-Pascal-Eigenschaf- 
ten nur bei der IBM-PC-Version vorhanden 
sind. 


Apple-UCSD-Pascal 1.2 erhält man über Apple- 
Händler mit 4 Disketten, 2 Handbüchern und 2 
Ergänzungsbroschüren zum Preis von ca. DM 
900,-. Zum Lieferumfang gehören ein komplet- 
tes Diskettenbetriebssystem mit Filer, Formatter 
usw. sowie zahlreiche Hilfsprogramme wie As- 
sembler, Linker, Library-Verwaltungsprogram- 
me usw. Appie-UCSD-Pascal ist auf jedem Ap- 
pie lauffähig (II+/e/c), wobei jedoch eine 80- 
Zeichenkarte zweckmäßig und zwei Laufwerke 
praktisch unumgänglich sind. 


Turbo-Pascal 3.0 erhält man über die Firma 
Heimsoeth mit 2 Disketten und 1 Handbuch 
zum Preis von ca. DM 230,-. Eine Z80-Karte 
und das CP/M-Betriebssystem müssen geson- 
dert für zusammen ca. DM 1000,- erworben 
werden (Die Turbo-Systemdiskette bootet 
nicht). Eine 80-Zeichenkarte ist erforderlich, ein 
zweites Laufwerk hingegen entbehrlich. Für die 
optimale Anpassung an den Apple muß man 
selbst sorgen. Dies beginnt bereits bei der Kon- 
figurierung der 80-Z/Z-Bildschirmsteuerung 
und endet bei der Hires-Grafik. 


— Turbo-Pascal eignei sich besser für Anfänger 
und solche Programmierer, die kleine Program- 
me ohne „Libraries“ erstellen wollen. UCSD- 
Pascal eignet sich besser für Fortgeschrittene 
und solche Programmierer, die von dem nur in 
UCSD-Pascal hochentwickelten „Bibliotheks- 
konzept“ Gebrauch machen wollen. 
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— Die Verarbeitungsgeschwindigkeit (mit Aus- 
nahme des Diskettenzugriffs) ist bei Turbo-Pas- 
cal größer als bei UCSD-Pascal. 

— Turbo-Pascal eignet sich besser für an- 
spruchsvolle Fließkomma-Mathematik, während 
UCSD-Pascal bei Grafik und sonstigen apple- 
spezifischen Anwendungen vorzuziehen ist. 


Dies sind einige der Vor- und Nachteile, die Sie 
bei Ihrer . Kaufentscheidung berücksichtigen 
können. 


4. Ist Pascal standardisiert? 


Würde man den Schwierigkeitsgrad einer Pro- 
grammiersprache von der Anzahl der Befehle 
abhängig machen, so wäre (6502-)Assembler 
sehr leicht und Pascal sehr schwer. Die Anzahl 
der Befehle ist indes nur ein quantitatives Pro- 
blem; wichtiger ist die Systematik und Einheit- 
lichkeit der Befehle. Obwohl Pascal als eine 
standardisierte Sprache gerühmt wird, haben 
sich leider bei den einzelnen Implementierun- 
gen zahlreiche „Wunderlichkeiten“ eingeschli- 
chen, die es erforderlich machen, daß man sich 
bei zu vielen Befehlen zu viele Spezialfälle mer- 
ken muß. Greifen wir zur Verdeutlichung die 
Befehle WRITE/WRITELN und READ/READLN 
heraus, die in etwa den Applesoft-Befehlen 
PRINT (ohne und mit folgendem Semikolon) 
und GET/INPUT entsprechen: 


WRITE (A) etwa PRINT A$; 
WRITELN (A) etwa PRINT A$ 
READ (A) etwa GET A$ 
READLN (A) etwa INPUT A$ 


Man beachte, daß im Gegensatz zu Applesoft in 
Pascal die aus- oder einzugebende Variable A 
eingeklammert werden muß und daß der „$“- 
Zusatz entfällt (A sel hier eine sog. Char-Varia- 
ble, d.h. eine Einzelzeichen-Variable). 

Was passiert nun, wenn man die Klammer leer 
läßt, also 

WRITE () bzw. 

WRITELN (0) 

eingibt. In UCSD-Pascal ist beides zulässig, in 
Turbo-Pascal hingegen beides verboten. 

Wie steht es nun mit einem nackten 

WRITE bzw. 

WRITELN 

ohne Klammern (ähnlich wie ein nacktes PRINT 
in Applesoft)? Hier stellen wir fest, daß in Turbo- 
Pascal WRITE und WRITELN erlaubt sind, in 
UCSD-Pascal dagegen nur WRITELN. Es gilt 
also im einzelnen: 

WRITE 0): UCSD ja, Turbo nein 

WRITELN (0): UCSD ja, Turbo nein 

WRITE: UCSD nein, Turbo ja 

WRITELN: UCSD ja, Turbo ja 

Setzen wir unsere Experimente mit READ/ 
READLN fort. In Applesoft wären GET bzw IN- 
PUT ohne nachfolgende Variable nicht denkbar. 
Schlagen wir hingegen irgendein Pascal-Buch 
auf, z.B. „Rollke; Grundkurs, Band 2, S. 25", so 
finden wir plötzlich ohne nähere Erläuterung ein 
nacktes READLN. Sie werden sich mit Recht 
fragen, was eigentlich mit dem über die Tastatur 
eingegebenen Wert passiert, wenn keine Wert- 
zuweisung erfolgt. Außerdem werden Sie sich 
überlegen, ob neben READLN auch READ 
funktioniert. Durch Experimente werden Sie er- 
mitteln: 
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READ: UCSD nein, Turbo ja 

READLN: UCSD ja, Turbo ja 

Ferner gibt es noch die Möglichkeit, bei READ/ 
REÄADLN die Tastatur direkt ohne Bildschirm- 
echo abzufragen, und zwar mit dem Zusatz 
KEYBOARD in UCSD-Pascal bzw. KBD in Tur- 
bo-Pascal. Diese Befehle entsprechend etwa 
dem Applesoft-Peek der Speicherstelle -16384 
= $C0000. Hier werden Sie feststellen, daß in 
UCSD- bzw. Turbo-Pascal 

READ (KEYBOARD) bzw. 

READ (KBD) 


beide keinerlei Wirkung zeigen, weil die ent- 
sprechende Stelle im Objektcode quasi Über- 
sprungen wird, während zumindest 

READ 

allein ohne KBD in Turbo-Pascal möglich ist. 
Umgekehrt zeigen in UCSD- bzw. Turbo-Pascal 
REÄADLN (KEYBOARD) bzw. 

READLN (KBD) 

beide eine Wirkung. 

Gehen wir nun noch einen Schritt weiter und 
versuchen wir, über die Tastatur der Char-Varia- 
blen A durch Tippen der Return-Taste jeweils 
den entsprechenden ASCII-Code 13 zuzuwei- 
sen, Dann stellen wir fest, daß in UCSD-Pascal 
READ (A) und 

READ (KEYBOARD, A) 

beide eine Leertaste (ASCII-Code 32) statt Re- 
turn zuweisen. 

Anders bei Turbo-Pascal. Hier ergibt 
READ (A) 

Ctrl-Z (ASCII-Code 26), während 

READ (KBD, A) 

endlich das ersehnte Return zuweist. ı 
Um die Verwirrung komplett zu machen, sei an 
dieser Stelle bereits erwähnt, daß nur wenige 
der zahlreichen "Pascal-Datentypen über 
READLN/WRITELN ein- bzw. ausgegeben wer- 
den können. Nehmen wir als Beispiel die Wahr- 
heitswerte. In Applesoft ist der Befehl 

PRINT 1=1 

zulässig und ergibt den Wert 1 (= wahr), wäh- 
rend 

PRINT 1=2 

den Wert'O (= falsch) ausgibt. In UCSD-Pascal 
können Sie im Gegensatz zu Turbo-Pascal nicht 
einfach 

WRITELN (1=1) 

verwenden. Vielmehr müssen Sie zu umständli- 
chen Formulierungen greifen, z.B. 

IF 1=1 THEN WRITELN (1) 

oder 

IF1=1 THEN WRITELN ("wahr’) 

Wenn Sie sich jedoch einige Zeit mit UCSD- 
Pascal befaßt haben, werden Sie den ORD- 
„Trick“ kennenlernen. 

WRITELN (ORD (1=1)) 

gibt den Wert 1 aus, während 

WRITELN (ORD (1=2)) 

den Wert O anzeigt. Was passiert jedoch, wenn 
Sie beispielsweise den Befehl 

WRITELN (ORDB {NOT (1=1))) 

verwenden. Während Turbo-Pascal hier wieder 
0 ausgibt, erhalten Sie in UCSD-Pascal plötzlich 
-2. Folglich müssen Sie in UCSD-Pascal lernen, 
unter welchen Umständen Sie einen vernünfti- 
gen Wert erwarten dürfen. 

Diese Beispiele zeigen auf das deutlichste, daß 
man sich in Pascal mit vielen „wundersamen 
Dingen“ vertraut machen muß und daß es mit 
der vielgerühmten Standardisierung nicht zum 
besten steht. 
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ll. Das definitorische 
Grundgerüst 


1. Namen 





Namen sind (1) reservierte Wörter sowie (2a) 
vordefinierte und (2b) benutzerdefinierte Be- 
zeichner. Wie die meisten Programmierspra- 
chen kennt auch Pascal Befehlswörter, z.B. 
FOR, AND, OR usw., die jedoch nur aus Buch- 
staben (wahlweise Groß- oder Kleinbuchsta- 
ben) bestehen. Im einzelnen unterscheidet man 
die reservierten Wörter (z.B. AND, OR, END 
usw.) von den vordefinierten Bezeichnern = 
Standardbezeichnern (z.B. ABS, CHR, GOTO- 
XY usw.), da letztere von der jeweiligen Pascal- 
Implementierung abhängen. Wie in Applesoft 
kann man in Pascal den Konstanten und Varia- 
blen eigene Namen geben, die benutzerdefi- 
nierte Bezeichner heißen, z.B. im Falle von 
konstanten Zahlen: 

A=10 

A1=10 

ZAHL = 10 usw. 

Benutzerdefinierte Bezeichner müssen mit ei- 
nem Groß- oder Kleinbuchstaben anfangen, 
dürfen danach jedoch auch Ziffern aufweisen. In 
UCSD-Pascal sind die ersten 8 Zeichen eines 
Bezeichners signifikant, in Turbo-Pascal theore- 
tisch sogar bis zu 127 Zeichen. Sonderzeichen 
($, %, |, # usw.) sind nicht zulässig (Ausnah- 
me: _ = Unterstreichungsstrich). Benutzerdefi- 
nierte Bezeichner können reservierten Wörtern 
und Standardbezeichnern ähneln (z.B. FOR_E- 
VER, BEGIN_NER usw.), dürfen ihnen jedoch 
(normalerweise) nicht gleichen. Der Unterstrei- 
chungsstrich hat übrigens in UCSD-Pascal ei- 
nen „Nullwert“, d.h. FOR_EVER und FOREVER 
sind gleich. Schließlich beachte man, daß Groß- 
und Kleinbuchstaben in demselben Programm 
beliebig gemischt werden könnten, d.h. man 
könnte z.B. ZAHL als Konstante definieren und 
später im Programm als zahl, zAhL usw. auf- 
rufen. 

Während es in Applesoft im Prinzip nur Kon- 
stanten- und Variablen-Bezeichner gibt, kennt 
man in Pascal Konstanten-, Variablen-, Proze- 
dur-, Funktions-, Programm- {und in Turbo-Pas- 
cal zusätzlich) Label-Bezeichner. (In UCSD- 
Pascal sind als Labels nur Ziffern zulässig, in 
Turbo-Pascal wahlweise Ziffern oder Namen.) 


2. Begrenzer 


In Pascal gibt es Sonderzeichen, die entweder 
bestimmte Funktionen erfüllen (z.B. die mathe- 
matischen Operatoren +, -, *, /)} oder aus- 
schließlich der Begrenzung von Namen dienen 
(z.B. Leertaste und Return). Operatoren sind 
automatisch gleichzeitig Begrenzer. Einerseits 
läßt der Editor eine frei formatierte Eingabe des 
Queiltextes zu. Andererseits reagiert der Com- 
piler etwas „unwirsch" auf fehlende Begrenzer. 
Betrachten wir hierzu folgende Beispiele (die 
eingeklammerten Nummern gehören nicht zum 
Programm): 

{PRINT: PRINT} 

(1) WRITELN; WRITELN 

(2) WRITELN; 

WRITELN 

(3} WRITELN;WRITELN 

(4) WRI 

TELN; WRI TELN 
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Befehle werden in Pascal durch „;” und in 
Applesoft durch „:“ getrennt. Nach dem „;" 
kann man zusätzlich eine Leertasie (1) oder ein 
Return (2) einfügen oder auf beides verzichten 
(3). Man darf jedoch nicht mitten in ein Befehis- 
wort ein Return oder eine Leertaste einfügen 


(4). 


{PRINTA » A} 

(1) WRITELN(A#+A) 

(2) WRITELN (AxA) 

(3) WRITELN(AxA) 

Wie ersichtlich, werden Ausdrücke, die der 
WRITELN-Befehl ausgeben soll, im Gegensatz 
zu Applesoft in runde Klammern eingeschlos- 
sen. „*", „(" und „)" dienen gleichzeitig als 
Begrenzer, so daß Leertasien entbehrlich sind 
(2, 3), jedoch zulässig wären (1). 


{PRINT 10 DIV 2} 

(1) WRITELN (10 DIV 2) 
(2) WRITELN (10 

DIV 

2 


) 

(3) WRITELN (10DIV2) 

(4) WRITELN ((10)DIV(2)) 

Das dritte Beispiel zeigt das Ergebnis einer 
Integer-Division an (analog zu manchen BA- 
SIC-Versionen). Die Version (3) ist unzulässig, 
weil „DIV“ als Befehlswort entweder links und 
rechts durch eine Leertaste (1) bzw. ein Return 
(2) oder durch einen sonstigen Begrenzer ab- 
gesetzt werden muß, z.B. durch eine überflüssi- 
ge Klammer (4). 


Man kann bei Begrenzern im einzelnen unter- 
scheiden: 

Einzeichen-Begrenzer: + -*x/=<>:.,; 
Doppelzeichen-Begrenzer: := .. <= >= <> 
Paarzeichen-Begrenzer: {-} (-) [-] - 
Standard-Begrenzer: (Leertaste, Return) 

(In Turbo-Pascal gibt es außerdem die Begren- 
zer # und $ bei hexadezimalen Zahlen.) 


Man merke sich: 

a) Ein Name (Befehlswort, Bezeichner) sowie 
ein Doppelzeichen-Begrenzer darf niemals in 
sich durch einen Standard-Begrenzer unterbro- 
chen werden, z.B.: 

A := 1 ist richtig ° 

A: =1 ist falsch 

b) Ein Name (s.o. DIV usw.) muß stets links und 
rechts begrenzt werden. 

Einige Begrenzer wollen ‚wir bereits an dieser 
Stelle andeutungsweise erklären: 


steht nach WRITELN und diversen Funktionen‘ 
z.B. SIN (X). 


er 

wird bei Kommentaren und Compiler-Optionen 
verwendet; ersatzweise „(*-*)" als Doppel- 
zeichen-Begrenzer tippen. 


[-] 

kommt u.a. bei der Längendefinition von Strings 
vor; ersatzweise in Turbo-Pascal „(.-.)“ be- 
nutzen. 


+,-,% / 


sind mathematische Operatoren wie in Ap- 
plesoft. 
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=,<> <=, >= 

sind Vergleichsoperatoren wie in Applesoft, 
doch beachte man, daB ><, =< und => illegal 
sind. 


A 
- 


wird bei String-Werten, z.B. 'Demo’, verwen- 
det; in Applesoft Gänsefüßchen: "Demo; 


3. Programmaufbau 


(Zu dem nachfolgenden Kapitel vergleiche man 
im Listing KURS1 die Abschnitte 1.0 und 2.0.) 


Ein Pascal-Programm besteht aus folgenden 
Teilen: 

. Kopf (PROGRAM) 

, Labels (LABEL) 

. Konstanten (CONST) 

. Typen (TYPE) 

. Variablen (VAR) 

. Prozeduren (PROCEDURE) (mit 7 mischbar) 
Funktionen (FUNCTION) (mit 6 mischbar) 
Programm (Hauptprogramm) 

Die Komponenten 1 und 8 sind obligatorisch, 
alle anderen fakultativ. Jede Komponente au- 
ßer dem Hauptprogramm selbst beginnt mit ei- 
nem reservierten Wort. In UCSD-Pascal muß 
die Reihenfolge strikt eingehalten werden; au- 
Berdem darf beispielsweise das reservierte 
Wort „VAR“ nur ein einziges Mal vorkommen. 
All diese Einschränkungen gelten nicht für 
Turbo-Pascal. 


ONDTPOD-— 


3.1. Kopf und Programm 
PROGRAM DEMO1; {1} 


BEGIN {8} 
WRITELN (’Anfang’); 
WRITELN (’Ende’) 
END. 


Der Kopf (1) besteht aus dem reservierten Wort 
„PROGRAM“, gefolgt von einem benutzerdefi- 
nierten Programmnamen, gefolgt von einem 
us , hier also 

PROGRAM DEMO]; 

Vor dem Kopf stehen oft Compileroptionen in 
geschweiften Klammern. Beispielsweise be- 
deutet die Option 

{$LCONSOLE: } 

in UCSD-Pascal, daß während der Compllie- 
rung ein ausführliches Listing ($L) auf den Bild- 
schirm (= Console) ausgegeben wird. 

Nach dem Kopf steht in unserem KURSI-Li- 
sting 

USES TRANSCEND, APPLESTUFF; 

Damit ist gemeint, daß das UCSD-Programm 
aus der Programmbibliothek „SYSTEM.LIBRA- 
RY" die (Maschinen)routinen oder Units 
„IRANSCEND" und „APPLESTUFF" benutzt. 
Dies gilt nicht für die Turbo-Pascal-Version von 
KURSI1; dort sind die transzendenten Funktio- 
nen bereits standardmäßig impiementiert. 


Das eigentliche Programm oder genauer Haupt- 
programm (8) beginnt mit dem Wort „BEGIN" 
und endet mit dem Wort „END", gefolgt von 
einem „.“ Wenn der Compiler auf „END.“ mit 
Punkt stößt, hört er mit der Compilierung auf. 
Diesen Umstand kann man ausnutzen, um zU- 


sätzliche, noch nicht fertig entwickelte Passa- 
gen des Quelltextes von der Compilierung aus- 
zuschließen. 

Zwischen „BEGIN“ und „END.“ stehen die 
einzelnen Befehle, die voneinander durch „;" 
getrennt werden. Vor einem „END.“ (oder bei 
Prozeduren oder allgemein bei Verbundanwei- 
sungen vor einem „END;") muß deshalb nie- 
mals ein Semikolon stehen. Man darf es jedoch 
grundsätzlich setzen (sog. Leeranweisung). 


Die Befehle eines Pascal-Programms werden 
im einfachsten Fall sequentiell abgearbeitet, al- 
so hier erst 

WRITELN (’Anfang'); 

und dann 

WRITELN (’Ende’) 

„BEGIN" und „END“ haben eine Art Einklam- 
merungsfunktion („Verbundanweisung"), wor- 
auf weiter unten eingegangen wird. 
Zeilennummern fehlen in Pascal, wenn man von 
dem selten benutzten GOTO-LABEL-Befehl 
absieht, der in Form eines Beispiels ohne weite- 
re Erläuterungen demonstriert werden soll: 


PROGRAM GEHEN; 
{$G+} 

LABEL 1,2,3,4; 
BEGIN GOTO 3; 

1: WRITELN (1); 
GOTO 4; 

2: WRITELN (2); 
GOTO 1; 

3: WRITELN (3); 
GOTO 2; 

4: WRITELN (4) END, 


Dieses für Puristen und Nicht-Puristen gleicher- 
maßen abschreckende Beispiel gibt die Zahlen 
3, 2, 1, 4 (in dieser Reihenfoige) aus. 


3.2. Konstanten und Variablen 
PROGRAM DEMO32; {1} 


CONST {3} 
IK = 10; 

RK = 1.2345; 
CK = "x; 

SK = 'xyz'; 


VAR {5} 

IV: INTEGER; 
RV: REAL; 
CV: CHAR; 
SV: STRING; 


BEGIN {8} 
WRITELN (IK): 
END. 


Bei diesem erweiterten Demo werden zusätz- 
lich Konstanten (3) und Variablen (5) definiert. 


Die Konstantendefinition beginnt mit dem 
Wort „CONST", gefolgt von einer oder mehre- 
ren Gleichsetzungen, die jeweils durch „;“ ab- 
geschlossen werden (auch die letzte Gleichset- 
zung). Gleichsetzungen haben links vom „=" 
einen benutzterdefinierten Bezeichner und 
rechts vom „=" einen Wert. Im einzelnen gilt 
(Beispiele): 
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|= 10; 

wird als Integer-Zahl erkannt. 

R = 10.0; 

wird als Real-Zahl erkannt. 

C='A; 

wird als Char = „Character“ = Einzelzeichen 
erkannt (oder als 1-Zeichen-String). 

S = 'ABC'; 

wird als Zeichenkette = Zeichenfolge = String 
erkannt. 

Bei ganzen Zahlen, die Real-Zahlen sein sollen, 
muß man also einen Dezimalpunkt einfügen, 
damit der Compiler weiß, ob eine Integer- oder 
eine Real-Zahl gemeint ist. Man beachte näm- 
lich, daß es im Gegensatz zu Applesoft in Pas- 
cal keine Typzusätze wie „%" für Integer-Zah- 
len oder „$“ für Strings gibt. Außerdem beachte 
man, daß im Unterschied zu Applesoft in Pascal 
eine Konstante wirklich eine Konstante Ist, also 
nachträglich im Programm nicht mehr umdelfi- 
niert werden kann. 


Die Variablendefinition beginnt mit dem Wort 
„VAR“, gefolgt von einer oder mehreren Typ- 
bestimmungen, die jeweils durch „;” abge- 
schlossen werden (auch die letzte Typbestim- 
mung). Typbestimmungen haben links vom „:” 
einen benutzterdefinierten Bezeichner und 
rechts vom „:" eine Datentypbezeichnung. Es 


gibt u.a. folgende elementare Datentypen: 


R: REAL; 

Fließkommazahl: in Applesoft 9stellige Mantis- 
se = intern 5 Bytes, in UCSD-Pascal 6stellige 
Mantisse = intern 4 Bytes, in Turbo-Pascal 
11stellige Mantisse = intern 6 Bytes. 


: INTEGER; 

Ganzzahl mit Vorzeichen im Bereich -32768 bis 
+32767: in Applesoft sowie UCSD- und Turbo- 
Pascal intern 2 Bytes. 


C: CHAR; 

Einzelnes Zeichen: in UCSD-Pascal intern 2 (!) 
Bytes, in Turbo-Pascal intern i Byte, in Ap- 
piesoft „String mit 1 Zeichen“. Die 2 Bytes 
rühren bei UCSD-Pascal daher, daß intern 
grundsätzlich nur mit „Words“ = Wörtern = 
Doppelbytes gearbeitet wird. Dies gilt nicht für 
Turbo-Pascal. 


S: STRING; {nur UCSD!} 

S1: STRING[10] 

S2: STRING[255] 

Zeichenkette oder String. Die Länge, die wie in 
Applesoft bis zu 255 Zeichen betragen kann, 
muß in eckigen Klammern angegeben werden. 
Im Gegensatz zu Applesoft darf die Länge einer 
String-Variablen in Pascal zwar während des 
Programms schrumpfen, aber niemals über die 
vordefinierte Länge hinauswachsen. Es gibt al- 
so keinen sich dynamisch verändernden String- 
Pool mit Garbage-Collection. 

Wenn die Längenangabe in UCSD-Pascal fehlt, 
nimmt der Compiler eine Länge von 80 Zeichen 
an. Strings werden intern „gepackt“ gespei- 
chert, d.h. 1 Byte pro Zeichen,. denn Strings 
sind eigentiich sog. „PACKED ARRAYs OF 
CHAR“, {In Turbo-Pascal entfällt „PACKED" 
durch automatisches Packen.) 

Auf die Darstellung weiterer elementarer 
Datentypen, z.B. BOOLEAN (UCSD/Turbo) 
oder BYTE (nur Turbo), sowie „höherer“ 
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Datentypen, die mit „TYPE“ definiert werden, 
wird in diesem ersten Teil verzichtet. 


In Pascal müssen grundsätzlich alle Konstanten 
und Variablen vor deren Benutzung „deklariert" 
werden, und zwar bereits vor dem ersten „BE- 
GIN“. Dies gilt beispielsweise auch für Laufva- 
riablen von FOR-Schleifen. Ein Applesoft-Pro- 
grammierer könnte nun annehmen, daß man bei 
einem großen Programm zunächst Hunderte 
von Variablen festlegen müßte, bevor man mit 
der eigentlichen Programm anfängt. Dem ist 
jedoch nicht so. Infolge der Möglichkeit lokaler 
Variablen bei Prozeduren (in unserem KURSI1 
nicht benutzt) reduziert sich die Anzahl der glo- 
balen Definitionen auf ein Minimum. Hinzu 
kommt, daß lokale Namen mit globalen Namen 
formal identisch sein können, so daß man bei- 
spielsweise die FOR-Laufvariable | ungerührt 
innerhalb von verschiedenen Prozeduren je- 
weils neu definieren kann. 


Abschließend sei auf die Unterschiede zwi- 
schen „=", „!" und „:=" eingegangen. 


„=" wird u.a. erstens bei Konstantendeklaratio- 
nen und zweitens bei Vergleichen benutzt, z.B.: 
CONSTK = 0; 

IFK= 10 THEN ... 

Dies entspricht der Applesoft-Syntax. 


„. wird u.a. bei Variablendeklarationen benutzt, 
z.B. 

VARR: REAL; 

Variablendeklarationen entfallen in Applesoft, 
denn dort werden sie „beim Gebrauch erklärt". 


„‚=" wird bei Wertzuweisungen benutzt, z.B. 
R:= 123.456; 

Hier wird in Applesoft entweder die Form 
LETR = 123.456 

oder üblicherweise die Form 

R = 123.456 gewählt. 


3.3. Prozeduren 
PROGRAM DEMO3; {1} 


PROCEDURE A1; {6} 
BEGIN 

WRITELN (’Prozedur’) 
END; 


BEGIN {8} 
Ai 
END. 


In Applesoft beginnen Unterprogramme, die mit 
GOSUB n aufgerufen werden, mit einer be- 
stimmten Zeilennummer n und enden mit RE- 
TURN. In Pascal beginnen Unterprogramme mit 
dem reservierten Wort „PROCEDURE", gefolgt 
von einem benutzterdefinierten Namen, gefolgt 
von „;", also z.B. 

PROCEDURE A1; 

Das eigentliche Unterprogramm beginnt dann 
mit „BEGIN“ und endet mit „END;" mit Semi- 
kolon (im Gegensatz zum „END.“ mit Punkt 
beim Hauptprogramm). Der Aufruf des Unter- 
programms bzw. der Prozedur erfolgt im Haupt- 
programm durch einfache Angabe des Proze- 
durnamens, also z.B. 

Al; 

Mit dieser vereinfachten Erklärung sind die be- 
achtliichen Leistungen einer Pascal-Prozedur 
(sowie der analogen Pascal-Funktion) im Ver- 
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gleich zu den relativ eingeschränkten Ap- 
piesoft-GOSUBs jedoch bei weitem nicht ge- 
würdigt, denn neben der Möglichkeit lokaler 
Variablen können auch Variablenwerte zwi- 
schen Unterprogramm und Hauptprogramm 
ausgetauscht werden. Eigentlich sollte im Li- 
sting KURS1 das Wort „Prozedur“ überhaupt 
nicht vorkommen, doch kann man in UCSD- 
Pascal im Gegensatz zu Turbo-Pascal größere 
Programme, wozu der KURS bereits gehört, 
gar nicht ohne Prozeduren schreiben, weil das 
Hauptprogramm in UCSD-Pascal nicht mehr als 
gut 1000 Bytes umfassen darf. Deshalb muß 
man auch dann Unterprogramme bilden, wenn 
diese nur ein einziges Mal aufgerufen werden. 
Da Prozeduren außerdem vor dem Hauptpro- 
gramm aufgeführt werden müssen, führt dies zu 
einer starken „Kopflastigkeit“ des Pascal-Pro- 
gramms: Auf eine große Anzahl von Prozedu- 
ren folgt ein verkümmertes Hauptprogramm, 
das sich im Aufruf der einzelnen Prozeduren 
erschöpft. Deshalb kann man große UCSD- 
Pascal-Programme nie von vorne nach hinten 
kontinuierlich schreiben bzw. lesen. 


Ill. Kommentar 
zum KURSI 


Der KURSI1 gliedert sich in die Abschnitte 2.1. 
bis 2.8. Wenn Sie die Peeker-Sammeldisk #10 
besitzen, so konvertieren Sie sich die ge- 
wünschte Version (UCSD.TEXT bzw. TURB- 
PAS) auf ihre Pascal-Systemdiskette und com- 
pilieren Sie den Quelltext, wie es im Peeker 10/ 
1985, S. 46 beschrieben wurde. Dann starten 
Sie den KURS1 mit den Run-Befehl. Nun wäh- 
len Sie aus dem Bildschirm-Menü der Reihe 
nach die 8 Demos aus und vergleichen Sie das 
Bildschirm-Ergebnis mit dem entsprechenden 
Abschnitt des Listings sowie den nachfolgen- 
den Kommentar-Abschnitten 1 bis 8. Wenn Sie 
den jeweiligen Abschnitt verstanden haben, so 
nehmen Sie einige Änderungen in den Befehls- 
beispielen vor, denn nur durch eigene Anwen- 
dung der Befehle werden Sie mit ihnen richtig 
vertraut werden. In den Kommentaren werden 
auch einige zusätzliche Befehle genannt, die 
entweder nur in UCSD- oder nur in Turbo- 
Pascal vorkommen, 


1. Bildschirm-Ausgabe 


WRITE: Der WRITE-Befehl schickt die Werte 
einfacher Datentypen (Integer, Real, Char und 
String) an das momentane Ausgabegerät, das in 
unserem Beispiel stets der Bildschirm ist; ande- 
re Ausgabegeräte sind Drucker, Diskeitendatei 
usw. Auf das Befehlswort WRITE folgt in runden 
Klammern entweder ein Wert oder mehrere 
durch Kommas getrennte Werte. Diese Tren- 
nung von Aufzählungen durch Kommas gilt 
auch für viele andere Pascal-Konstrukte, z.B. 
VAR 

A,B,C: INTEGER; 

statt 

VAR 

A: INTEGER; 

B: INTEGER; 

GC: INTEGER; 

Man beachte, daß in Pascal auf jeden Befehl ein 
„‚“ folgt, sofern danach kein END steht. Das 
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Pascal-,;“ entspricht dem Applesoft- „:”. 
Beispiele für die Typen Integer, Real, Char und 
String: 

{Je 1 Wert} 

WRITE (1); 

WRITE (123.456); 

WRITE ('P’); 

WRITE (‘Peeker’); 

{Je 2 Werte} 

WRITE (1,2); 

WRITE (1.1, 2.2); 

WRITE CA’, 'B'); 

WRITE (AA’, BB’); 

{Je 1 Konstante} 

WRITE (IK); 

WRITE (RK); 

WRITE (CK); 

WRITE (SK); 

{Konstante + Variable} 

WRITE (IK, IV); 

WRITE (RK, RV); 

WRITE (CK, CV); 

WRITE (SK, SV); 

Man beachte die einfachen Anführungszeichen 
bei Stringwerten. Ferner beachte man, daß 
Kommentare in geschweifte Klammern = Akko- 
laden gesetzt werden. Und schließlich denke 
man immer an das „;". Dies kann nicht oft 
genug eingehämmert werden, denn ein einzi- 
ges fehlendes „;" bedeutet vollständige Neu- 
compilierung! 

Bei Stringwerten ist zu bemerken, daß man 
über ca. 78 Zeichen (in Äpplesoft ca. 230 Zei- 
chen) normalerweise nicht hinausgehen kann. 
Bei längeren Texten muß man entsprechend 
stückeln. Während in Applesoft das Gänsefüß- 
chen ein Problem darstellt, stellt in Pascal der 
Apostroph ein Problem dar. Mit z.B. 

WRITELN ('Pascal”s triangle'); 

kann man den Apostroph ausgeben. 


WRITELN: Im Unterschied zu WRITE schickt 
WRITELN in UCSD-Pascal ein Return und in 
Turbo-Pascal ein Return-Linefeed nach dem 
letzten Wert, also quasi nach dem „)", hin- 
terher: 

WRITELN (1); 

ergibt 1 + Return. 

WRITELN (1, 2); 

ergibt 12 + Return. 

Steuerzeichen können mit 

S := CHR (X); {zu „:=" und CHR s.u.} 
definiert werden (in Applesoft mit CHR$ (X)), 
wobei S eine (String- oder) Char-Variable ist 
und X die Nummer des Otrl-Zeichens darstellt. 
In UCSD-Pascal wird R = Return als 

R := CHR (13); {Char} 

und in Turbo-Pascal als 

R := CHR (13) + CHR (10); (String} 

definiert. 

Für ein nacktes Return bzw. Return-Linefeed 
genügt bei beiden Versionen jedoch auch das 
parameterlose 

WRITELN; 


Invers/Normal: Für inverse Bildschirmdarstel- 
lung gilt in Apple-Pascal 1.2 (nicht Altversion 
1.1!) 

WRITE (CHR (15)); {invers} 

WRITE (CHR (14)); {normal} 

und in Turbo-Pascal — ähnlich wie INVERSE/ 
NORMAL in Applesoft: 

LOWVIDEO; {invers} 

NORMVIDEO; {normal} 
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Home: Den Bildschirm löscht man in UCSD- 
und Turbo-Pascal mit 

WRITE (CHR (12)); 

oder nurin UCSD-Pascal mit 

PAGE (OUTPUT); 

oder nur in Turbo-Pascal mit 

CLRSCR; 


GOTOXY: Der Cursor läßt sich mit GOTOXY 
(X,Y) positionieren, wobei X für die Spalte 
(UCSD: 0-79, Turbo: 1-80) und Y für die Zeile 
steht (UCSD: 0-23, Turbo: 1-24). Das von Ap- 
plesoft her bekannte HTAB 1, VTAB 5 wäre also 
in Turbo-Pascal mit 

GOTOXY (1,5); 

und in UCSD-Pascal mit 

GOTOXY (0,4); 

zu programmieren. 


2. Formatierung 


Der WRITE/WRITELN-Befehl läßt eine rechts- 
bündig-formatierte Ausgabe (Print-Using) von 
Zahlen und Strings zu. Die allgemeine Form 
lautet 


WRITELN (Ausdruck:G:N); 

wobei G-für die Gesamtanzahl der Stellen des 
Feldes und N für die Nachkommastellen (nur 
bei Fließkomma-Zahlen) steht. Beispiele (jedes 
„LJ" steht für 1 Leertaste): 

WRITELN (1:5); 

gibt die Integer-Zahl 1 aus als 

OOOO 1 


-WRITELN (’A':3); 


ergibt 

ELIA 

WRITELN (’Peeker’:7); 

ergibt 

[IPeeker 

Bei formatierten Fließkomma-Zahlen wird die 
letzte Nachkommastelle gerundet, so daß man 
die unterschiedlich langen Mantissen in UCSD- 
und Turbo-Pascal beachten muß. In UCSD- 
Pascal ist wegen der nur 6stelligen Mantisse oft 
keine sinnvolle Rundung möglich. Beispiele: 
WRITELN (-123.477:7:2); 

ergibt 

-123.43 

WRITELN (123.477:7:2); 

ergibt 

[1123.48 

Wenn eine Rundung in dem angegebenen G-N- 
Format nicht mehr möglich ist, wird automatisch 
auf das für unformatierte Real-Zahlen sonst üb- 
liche Exponentialformat (oder bei Turbo-Pascal 
auf Zusatznullen ...000...) umgeschaltet, wo- 
durch das Feld überschritten werden kann. 
Wenn die WRITELN-Anweisung Formelaus- 
drücke enthält, so steht die G-N-Formatierung 
ganz am Schluß, z.B. 

WRITELN ((5.3 - 4,2) & 3.1:8:2); 

Bei nicht-formatierter Ausgabe von Real-Zahlen 
steht in der ersten Stelle im Falle einer negati- 
ven Zahl ein „-“ und im Falle einer positiven 
Zahl eine Leertaste und kein „+“. In Turbo- 
Pascal wird noch eine weitere Leertaste voran; 
gestellt. Beispiel: 

WRITELN (123.456); 

ergibt in UCSD-Pascal 

U1.2345E2 

und in Turbo-Pascal 

UIE11.2345600000E-+02 


3. Wertzuweisungen 


Die Wertzuweisung zu einer Variablen heißt in 
Applesoft 

V = Ausdruck 

und in Pascal 


V := Ausdruck; 

Links vom „:=" steht eine Integer-, Real-, 
Char- oder String-Variable, und rechts vom 
„'=" steht ein Literal („wörtlicher“ Ausdruck), 
eine Konstante, eine Variable oder ein Formel- 
ausdruck. Beispiele: 


[Li 


Ve==10: 
AVe=2L05: 
CV:='A'; 

SV := 'Turbo’; 
WIE: 
RV:=RK; 
EVSZCK: 

SV = SK; 
RV:=RV+RV; 


RV := 10,55 + 20.5; 

RV := RK + 10,5; 

Zu den Formelausdrücken s. nächste Ab- 
schnitte. 


In UCSD- und Turbo-Pascal gibt es die System- 
konstante 


MAXINT 

(= maximale Integer-Zahl 32767), 

die u.a. bei der Wertzuweisung verwendet wird, 
z.B. 


IV := MAXAINT; . 
Hierfür könnte man auch schreiben: 
ME—=532767, 


Andere Systemkonstanten sind TRUE, FALSE 
NIL und —- in Turbo-Pascal — Pl. 


Man beachte „=" und „:=" bei z.B. 
(a) CONSTK = MAAINT; 
(b} V := MAXINT; 


Bei (a) handelt es sich um eine Konstantende- 
Klaration, bei (b) um eine Wertzuweisung. 


4. Tastatur-Eingabe 


READ: Dieser Befehi, der in Klammern eine 
Variable erwartet, entspricht etwa dem GET- 
Befehl in Applesoft. Man verwendet READ, um 
ein einzelnes Zeichen über das momentane 
Eingabegerät einzulesen. Dies ist hier die Ta- 
statur (sowie sonst z.B. ein Disketten-Textfile). 
Beispiel: 

READ (CV); 

Bei diesem Befehl wartet UCSD-Pascal auf ei- 
nen Tastendruck. Tippt man „A“, so wird er- 
stens das Zeichen „A" angezeigt und zweitens 
der Char-Variablen CV zugewiesen. Nach „A“ 
braucht man in UCSD-Pascal kein Return zu 
drücken. In Turbo-Pascal ist hingegen ein Re- 
turn erforderlich. 


READ (KEYBOARD, CV); {UCSD} 
unterscheidet sich von READ (CV) dadurch, daß 
das geiippte Zeiehen nichtam Bildschirm ange- 
zeigt wird. „KEYBOARD“ gehört zu den vorde- 
finierten Bezeichnern. In Turbo-Pascal heißt der 
entsprechende Befehl 

READ {KBD, CV); {Turbo} 

Hier ist wie bei den UCSD-Befehlen READ (CV) 
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und READ (KEYBOARD, CV) kein Return erfor- 
derlich. Um das UCSD-READ-(CV) in Turbo- 
Pascal zu simulieren, verwende man die Be- 
fehlsfolge 

READ (KBD, CV); WRITE (CV); 


READLN: Dieser Befehl liest eine String-Varia- 
ble (= eines oder mehrere Zeichen) ein, zeigt 
den String am Bildschirm an und erwartet Re- 
turn als Ende der Eingabe, z.B. 

READ (SV); 

Man kann mit READLN auch Integer- und Real- 
Zahlen eingeben, doch „verabschiedet" sich 
Pascal mit einem Systemfehler, wenn man bei 
Zahlen nicht die zulässigen Zahlzeichen ver- 
wendet. Bei 

READ (IV); b 

wäre bereits eine Leertaste zwischen 2 Ziffern 
„tödlich“. Deshalb gehört ein narrensicheres 
Zahlen-READLN zu den Standard-Prozedur- 
Übungen eines jeden UCSD-Pascal-Novizen. 
(In Turbo-Pascal kann man wie in Applesoft 
über die VAL-Funktion einen eingegebenen 
String in eine Zahl konvertieren.) 


5, Integer-Mathematik 


Die Ganzzahl-Mathematik ist für Kenner des 
alten Apple-Integer-BASIC nichts Neues. In 
Applesoft selbst gibt es keine echte Integer- 
Mathematik, wohl aber bei bestimmten Ap- 
plesoft-Compilern (z.B. TASC- oder Hayden- 
Compiler). 

Ganzzahlen liegen im Bereich -32768 bis 
+32767 (intern in UCSD- und Turbo-Pascal 2 
Bytes). 


+, - und x: Dies sind die einfachen Operato- 
ren; hinzu kommt noch +/- als Vorzeichen, das 
ohne Leertaste direkt vor die Zahl gesetzt wer- 
den muß. Beispiele: 


IV:=10+ 20; 

IV := 20 - 10; 

V:= 10% 10; 

WRITELN (-10 + -20); {nur Turbo} 

Die Zuweisung (Fließkomma-Variable := Inte- 
ger-Ausdruck) ist zulässig, z.B. 

RV:=43 #5; 


Die umgekehrte Anweisung (Integervariable := 
Fließkomma-Ausdruck), z.B. 

IV := 3.1 - 3.2; 

ist im Gegensatz zu Applesoft verboten. 

Man merke sich bereits jetzt zwei Besonderhei- 
ten von Pascal: 

1. Auf das Mischen von Datentypen reagiert der 
Pascal-Compiler oft „unwirsch“. Ein Mischung 
in der Art 

RV:=10 + 10.5; 

ist gerade noch zulässig. 

2, Pascal-Variablen werden beim Programm- 
start im Gegensatz zu Applesoft nicht automa- 
tisch auf O gesetzt. Das Mini-Programm 
PROGRAM TEST; 

VAR R: REAL; 

BEGIN 

WRITELN (R) 

END. 

hätte zur Folge, daß für R derjenige „Wert“ 
angezeigt wird, der sich zufällig im Speicher 
befindet. 

DIV und MOD: Wenn gilt 

Dividend : Divisor = Quotient + Rest 

dann gilt 
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DIV = Quotient-Operator, 

MOD = Rest-Operator. 

Beispiele: 

WRITELN (7 DIV 3); 

ergibt 2. 

WRITELN (7 MOD 3); 

ergibt 1. 

ABS: Die Absolutfunktion eliminiert ein mögli- 
ches Vorzeichen, z.B. 

WRITELN (ABS (-10)); 

ergibt 10. 

SQR: Im Gegensatz zum Applesoft-SQR ist 
hier das Quadrat und nicht die Quadratwurzel 
gemeint: 

WRITELN (SOR (10)); 

ergibt 100. 


PRED und SUCC: PRED = Predecessor = 
Vorgänger = Integer-Zahl - 1; SUCC = Suc- 
cessor = Nachfolger = Integer-Zahl + 1. Bei- 
spiele: 

WRITELN (PRED (10)); 

ergibt 9. 

WRITELN (SUCGC (10)); 

ergibt 11. 

Vgl. auch Abschnitt 8: PRED und SUCC bei 
Char-Variablen. 


ROUND und TRUNGC: Hierbei handelt es sich 
um das Runden (ROUND) oder Abhacken 
(TRUNC von to truncate) einer Fließkomma- 
Zahl zu einer Integer-Zahl, z.B. 

WRITELN (ROUND (10.3)); 

ergibt 11 und 

WRITELN (TRUNC (10.8)); 

ergibt 10. 

Wenn sich beim Runden/Abhacken eine zu gro- 
ße Integer-Zahl ergeben würde, erfolgt eine 
Fehlermeldung. Nur in Turbo-Pascal gibt es wie 
in Applesoft die INT-Funktion für Real-Zahlen, 
die größer als MAXINT sind, z.B. 
WRITELN (INT (1234567.89)); 


RANDOM liefert in UCSD-Pascal eine Integer- 
Zufallszahl, z.B. 
WRITELN (RANDOM); 


IV := RANDOM; 
In Turbo-Pascal ist 
RV := RANDOM; 


ohne Parameter eine Fließkomma-Funktion und 
IV := RANDOM (OBERGRENZE); 

mit Parameter eine Integer-Funktion. 
PWROFTEN (Power of Ten = Zehnerpotenz; 
fehlt in Turbo-Pascal) hat in UCSD-Pascal als 
Argument einen Integer-Exponenten zur im 
Ausdruck nicht erwähnten Basis 10, z.B. 
WRITELN (PWROFTEN (2)); 

ergibt 100 (10 ? 2). 

In Turbo-Pascal gibt es noch weitere, insbeson- 
dere für Assemblerprogrammierer interessante 
Integer-Operationen, z.B. SHL = Shift Left, 
SHR = Shift Right, Hl = High Byte, LO = Low 
Byte, SWAP = Low/High-Vertauschung, sowie 
im übrigen den zusätzlichen Datentyp BYTE. 


6. Fließkomma-Mathematik 


Die Fließkomma-Operatoren und -Funktionen 
sind in Pascal und Applesoft gleichartig, so daß 
wir nur auf die Besonderheiten aufmerksam zu 
machen brauchen. 

+, -, %, / sind die üblichen Operatoren für plus/ 
minus/mal/geteilt. Beispiele: 


RV := (1.1 + 2.2) # (3.3 - 2.2); 

WRITELN (1.1 2.2 + 3.3); 

WRITELN (1.1 & (2.2 + 3.3)); 

Man beachte die von Applesoft her bekannten 
Prioritätsregeln: Punkt geht vor Strich, Klammer 
vor alles. Ferner sei darauf hingewiesen, daß 
die Ausgabe von Real-Werten stets im Expo- 
nentialformat erfolgt, sofern keine G-N-Forma- 
tierung (s. Abschnitt 2) spezifiziert wird. 


Potenz: Der Applesoft-„hoch“-Operator „X 7 
Y“ fehlt in Pascal und muß durch 

EXP (Y*LN (X); 

simuliert werden. Beispiel: 

WRITELN (EXP (3.0 *# LN (2.0))); 

entspricht 2 7 3. 


SQR und SQRT: SQR steht für „Square“ = 
Quadrat = X # X, und SORT steht für „Square 
Root“ = Quadratwurzel von X. In Applesoft 
steht SOR für SORT. Beispiele: 

WRITELN (SQR (3.0)); 

ergibt 9.0. 

WRITELN (SORT (9.0)); 

ergibt 3.0. 


SIN, COS, ATAN: Dies sind die üblichen trigo- 
nometrischen Funktionen Sinus, Cosinus und 
Arcustangens. Die Berechnung erfolgt wie in 
Applesoft im Bogenmaß (= Pi/180; Gegensatz: 
Gradmaß = 360 Grad). Als Umrechnungsfaktor 
verwende man in Turbo-Pascal 


= P[ 7180; 
oder in UCSD-Pascal 
F:= 0.017453; 


Es gilt dann (Beispiele): 

WRITELN (SIN (30 & P)); 

ergibt theoretisch 0.5, und 

WRITELN (COS (60 & F)); 

ergibt ebenfalls theoretisch 0.5. In Turbo-Pascal 
ist die Konstante PI (analog zur Konstanten 
MAXINT) zusätzlich implementiert. 

Die TAN-Funktion fehlt in Pascal und muß 
durch 

RV := SIN (X) / COS R9; 

simuliert werden. 

Statt ATAN in UCSD-Pascal heißt es ARCTAN 
in Turbo-Pascal. 


LOG, LN, EXP: LOG steht nur in UCSD-Pascal 
für die dekadische Logaritnmus-Funktion (fehlt 
in Turbo-Pascal). LN steht in UCSD/Turbo-Pas- 
cal für die natürliche Logarithmus-Funktion (in 
Applesoft LOG genannt). Und EXP steht in 
UCSD/Turbo-Pascal für die Exponentialfunktion 
von e. Beispiele: 

WRITELN {LOG (100)); 

ergibt 2, weil 10 7 2 = 100. 

WRITELN (LN (2.7182818285)); 

ergibt 1, weile  1= 2.1... 

WRITELN (EXP (1)); 

ergibt 2.7182818285. 

In Turbo-Pascal begegnet man noch den zu- 
sätzlichen Funktionen INT (= Stellen vor dem 
Dezimalpunkt) und FRAC (= Stellen nach dem 
Dezimalpunkt). Beispiele: 

WRITELN (INT (12345.6789)); 

ergibt theoretisch 12345.0, und 

WRITELN (FRAC (12345.6789)); 

ergibt theoretisch 0.6789. 


Abschließend sei darauf hingewiesen, daß eine 
Reihe der UCSD-Integer- und Real-Funktionen 
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nur in der sog. System-Library enthalten sind 
und deshalb über 

USES TRANSCEND, APPLESTUFF; 

in den Objektcode eingebunden werden müs- 
sen. In Turbo-Pascal gibt es normalerweise kei- 
ne Libraries, so daß alle o.g. Funktionen auto- 
matisch vorhanden sind. 


7. Verzweigungen und Schleifen 


Während bei der Integer- und Fließkomma-Ma- 
tnematik die Gemeinsamkeiten zwischen Ap- 
plesoft und Pascal noch sehr groß waren, kom- 
men wir jetzt allmählich zu den pascaltypischen 
Befehlskonstruktionen. 

<,=,>, <=, >=, <>: Hierbei handelt es sich 
um die von Applesoft her bekannten Ver- 
gleichsoperatoren. Man beachte, daß „><", 
„=>" im Gegensatz zu Applesoft illegal sind. 
OR, AND, NOT: Dies sind die ebenfalls in Ap- 
plesoft verwendeten Wahrheitswert-Operatoren 
= logischen Operatoren = booleschen Opera- 
toren (benannt nach George Boole, geb. 1815; 
„boolesche" klein und ohne Apostroph). Dane- 
ben gibt es noch den Datentyp BOOLEAN und 
die Konstanten TRUE und FALSE, worauf an 
dieser Stelle nicht eingegangen wird, 


IF-THEN-ELSE 

Der sequentielle Befehisfluß eines Pascal-Pro- 
gramms wird durch Verzweigungen, Schleifen 
und Unterprogramme durchbrochen. Beim IF- 
THEN-(ELSE-)Befehl muß man drei Befehlstei- 
le unterscheiden: 

— THEN-Befehle T1, T2... 

- ELSE-Befehle Ei, E2... 

— Weitere Befehle W1, W2... 


IF-THEN läßt sich umschreiben mit „Wenn Be- 
dingung erfüllt ist, dann THEN-Befehl(e) T1, 
T2... ausführen, ansonsten direkt die weiteren 
Befehle W1, W2... ausführen.“ Je nachdem, ob 
von TIHEN ein einziger Befehl oder mehrere 
Befehle abhängen, unterscheidet man: 


IF Bedingung THEN 
LIE 
Nur 


oder 


IF Bedingung THEN 
BEGIN 

ıub 

T2 

END; 

W1;... 


Im letzteren Fall ist die BEGIN-END-Klamme- 
rung (= Verbundanweisung) erforderlich. Be- 
trachten wir hierzu folgende Beispiele: 


IF1 = 1 THEN 

WRITELN ('T1’); 

WRITELN (W1’); ... 

Hier werden Ti und W1 ausgegeben; 1-Befehl- 
Beispiel, Bedingung erfüllt. 


IF1=2THEN 

WRITELN ('T1'); 

WRITELN (’W1’); 
Hier wird nur Wi ausgegeben; 1-Befehl-Bei- 
spiel, Bedingung nicht erfüllt. 
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IF1= 1THEN 

WRITELN ('T1'); 

WRITELN ('T2'); 

WRITELN ('W1’); 

Hier werden T1, T2 und W1 ausgegeben; fal- 
sches 2-Befehl-Beispiel, das sich jedoch nicht 
negativ auswirkt, weil Bedingung erfüllt ist. 


IF1=2THEN 

WRITELN ('T1’); 

WRITELN ('T2’); 

WRITELN (W1'); 

Hier werden T2 und W1 ausgegeben; falsches 
2-Befehl-Beispiel, das sich negativ auswirkt, 
weil Bedingung nicht erfüllt ist. 


IF1=2THEN 

BEGIN 

WRITELN (’T1’); 

WRITELN ('T2') 

END; 

WRITELN ('W1'); 

Hier wird nur W1 ausgegeben; richtiges 2-Be- 
fehl-Beispiel, Bedingung nicht erfüllt. 


Wir merken uns: Wird die Bedingung erfüllt/ 
nicht erfüllt, dann wird die THEN-Anweisung/ 
THEN-Verbundanweisung ausgeführt/nicht 
ausgeführt. Nach einem „THEN" können theo- 
retisch beliebig viele Befehle durch „BEGIN- 
END" verbunden werden. In Applesoft können 
zum Vergleich nach einem THEN nur so viele 
Befehle folgen, wie noch in den Rest der Pro- 
grammzeile passen. Vergißt man die BEGIN- 
END-Klammerung bei mehreren THEN-Befeh- 
len, so fährt Pascal in jedem Fall mit dem zwei- 
ten Befehl nach dem THEN fort. Die Einklam- 
merung wird vor allen Dingen dann kritisch, 
wenn verschachtelte IF-THEN-Konstruktionen 
verwendet werden. Ohne Verbundanweisungen 
könnte man sich nämlich dann nur noch durch 
GOTOs retten, 


IF-THEN-ELSE läßt sich umschreiben mit 
„Wenn Bedingung erfüllt ist, dann THEN-Be- 
fehl(e) T1, T2,.. ausführen, andernfalls ELSE- 
Befehl(e) Ei, E2... ausführen, und danach in 
jedem Fall mit den weiteren Befehlen W1, W2... 
fortfahren“. Man merke sich, daß vor dem Wort 
„ELSE* die „;"-Leeranweisung verboten ist. 
Betrachten wir nun folgendes Beispiel: 


IFA=BTHEN 

BEGIN 

WRITELN ('T1'); 

WRITELN (’T2’) 

END {hier kein „;"!} 

ELSE 

BEGIN 

WRITELN (’E1'); 

WRITELN (’E2') 

END; 

WRITELN (’'W1’); 

Wenn A = B wahr ist, dann werden T1, T2 und 
Wi ausgegeben. Wenn A = B falsch ist, dann 
werden E1, E2 und W1 ausgegeben. Würde das 
Wort „ELSE“ fehlen, dann würden in jedem Fall 
auch Ei und E2 ausgegeben. „ELSE“ wird also 
benötigt, um vor den weiteren Befehlen W1, 
Ww2... anstelle der Wahr-THEN-Alternative T1, 
T2... die Falsch-ELSE-Alternative E1, E2... aus- 
führen zu können. 


CASE-OF-END 

IF-THEN und IF-THEN-ELSE sind Entscheidun- 
gen, die von dem Wahrheitsgehalt einer Bedin- 
gung, d.h. einem einzigen logischen Vergleich, 
abhängen. Am übersichtlichsten wären Ent- 
scheidungen, die von mehreren Bedingungen 
abhängen könnten, z.B. 


1:A=B.. 
2:A>B.. 
USW. 


Eine ähnliche Konstruktion gibt es in Pascal in 
Form der CASE-Anweisung, bei der jedoch kei- 
ne logischen Bedingungen, sondern nur feste 
Werte in bezug auf eine vorgegebene Datentyp- 
Variable — Selektor genannt — zur Auswahl ste- 
hen, Beispiel: 


PROGRAM FAELLE; 
VAR I: INTEGER; 
BEGIN 

WRITE (ZAHL 1-3:”); 
READLN (]); 

CASE I OF {CASE-Anfang} 
1: WRITELN (1); 

2: WRITELN (2); 

3: WRITELN (3) 

END {CASE-Ende} 
END. {Programm-Ende} 


Die allgemeine Form lautet: 
„CASE" + Selektor + „OF" 
Werti1 + „:" + Befehl(e); 
Wert2 + „:" + Befehi(e); usw. 
END; 


In Turbo-Pascal (nicht in UCSD-Pascal) kann 
man vor dem „END" der CASE-Anweisung mit 
einer ELSE-Anweisung fortfahren, Eine detail- 
lierte Explikation des CASE-Befehls ist an die- 
ser Stelle noch nicht sinnvoll. Wichtig ist dage- 
gen bereits hier der allgemeine Hinweis, daß im 
Gegensatz zu Applesoft die logischen Operato- 
ren in der Prioritätsskala vor den Vergleichsope- 
ratoren rangieren, so daß man bei kombinierten 
Ausdrücken stets einklammern muß, also in 
Pascal 

IF(1 = 1) AND (2 = 2) THEN... 

und nicht wie in Applesoft 
IF1=1AND2=2THEN .. 

denn dies würde in Pascal 

IFt=(1AND2) =2THEN... 

bedeuten, was prompt zu einer Compiler-Feh- 
lermeldung führen würde. 


FOR-TO/DOWNTO-DO 

Die von Applesoft her bekannte Aufwärtszähl- 
schleife, z.B. 

FOR I=1T0 10: ..: NEXTI 

lautet in Pascal 

EBOBIE=1E.0710ID Om: 

Und die Applesoft-Abwärtszähilschleife, z.B. 
FOR I = 10 TO 1 STEP -1: ...: NEXT 

lautet in Pascal 

FOR I := 10 DOWNTO 1 DO ...; 

In Applesoft ist der FOR-NEXT-Verbund deutli- 
cher erkennbar als in Pascal, weshalb sich der 


- Applesoft-Programmierer bei z.B. 


FORI:=1T05DO 

WRITELN (I); WRITELN (I+1); 

mit Recht fragen wird, wieviele Male hier | und 
I+} ausgegeben werden. Der Schlüssel zum 
Verständnis liegt wiederum in der Verbundan- 
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weisung: Wenn die FOR-Schleife nur einen ein- 
zigen Befehl „tun“ (DO) soll, dann folgt unmit- 
telbar nach DO der Befehl. Wenn hingegen 
mehrere Befehle ausgeführt werden sollen, so 
ist die BEGIN-END-Verbundanweisung erfor- 
derlich. Beispiele: 


FOR I:=1TO3DO 

WRITELN (’A’); 

WRITELN ('B'); 

gibt dreimal „A" und nur einmal „B" aus. 


FORI:=1T0O3DO 

BEGIN 

WRITELN ('A’); 

WRITELN ('B’) 

END; 

gibt dreimal „A“ und dreimal „B“ aus. 


Im Gegensatz zu Äpplesoft darf in Pascal die 
Laufvariable (hier |) nie eine Real-Variable sein. 
Außerdem gibt es kein NEXT, keinen STEP und 
keine von +/-1 abweichende Schrittweite. 
FOR-Schleifen mit Real-Variablen und/oder (In- 
teger-)Schrittweiten ungleich +/-1 muß man 
mit WHILE- oder REPEAT-Schleifen simulieren. 
Weitere Sonderfälle: 


FOR I := 1 TO 10 DO; 

ist eine Leerschleife (nacktes „;") und ent- 
spricht der Applesoft-Befehlsfolge 

FOR I = 1 TO 10: NEXT | 


FOR I := 1 TO 3 DO 

FOR J:=1T05DO 

WRITELN (I, '",J); 

entspricht der Applesoft-Befehlsfolge 
FOR I=1T03: 


FORJ=1TO5: 
PRINT I; " ";y: 
NEXT J, | 


FOR CV := 'A’' TO '’Z' DO 

WRITE (CV); 

ist in Pascal möglich und gibt hier die Buchsta- 
ben von A bis Z in einer Zeile aus. Allgemein 
formuliert läßt die Pascal-FOR-Schleife als Lauf- 
variablen sog. skalare Variablen zu. Dies sind 
u.a. Integer- und Char-Variablen, 


FOR | := 11 TO 10 DO 

WRITELN (Il); 

bewirkt gar nichts, denn im Gegensatz zu Ap- 
plesoft wird eine FOR-Schleife übersprungen, 
wenn der Anfangswert den Endwert übersteigt. 


WHILE-DO 

Diese Schleife heißt in Worten „Solange die 
WHILE-Bedingung noch erfüllt ist, führe die 
DO-BEGIN-END-Befehle aus“. Beispiel: 


A:= 1.0; 

WHILE A < 10,5 DO 

BEGIN 

WRITELN (A); 

A:=A+05 

END; 

(Dieses Demo gibt die Zahlen 1.0, 1.5...10.0 
aus.) 


Zwischen WHILE und DO steht wie zwischen IF 
und THEN ein logischer Ausdruck. Da sich die- 
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ser logische Ausdruck zur Vermeidung einer 
Endlos-Schleife ändern sollte (1 Befehl) und da 
die WHILE-Schleife auch noch etwas Sinnvolles 
tun sollte (noch 1 Befehl), folgen auf DO minde- 
stens 2 Befehle, so daß eine WHILE-Schleife 
praktisch immer als BEGIN-END-Verbundan- 
weisung konstruiert wird. 

Man beachte, daß die WHILE-Schleife über- 
sprungen, d.h. kein einziges Mal durchlaufen 
wird, wenn die Bedingung bereits beim ersien 
Durchlauf nicht erfüllt ist, z.B. 

l:=2; 

WHILE | = 1 DO... 

wird übersprungen. 


REPEAT-UNTIL 

Diese Schleife heißt in Worten „Führe die RE- 
PEAT-Befehle solange aus, bis die UNTIL-Be- 
dingung nicht mehr erfüllt ist". Beispiel: 


A: .0; 

REPEAT 

WRITELN (A); 

A:=A+05 

UNTILA >= 10,5; 

(Dieses Demo gibt die Zahlen 1.0, 1.5...10.0 
aus.) 


Der logische Ausdruck steht hier am Ende, d.h. 
nach UNTIL, so daß die REPEAT-Schleife im 
Gegensatz zu den FOR- und WHILE-Schleifen 
mindestens einmal durchlaufen wird. Wie das 
Demo zeigt, läßt sich eine WHILE-Schleife 
durch eine REPEAT-Schleife ausdrücken und 
umgekehrt. Im Gegensatz zur WHILE-Schleife 
ist bei der REPEAT-Schleife niemals eine (äu- 
Bere) BEGIN-END-Verbundanweisung erfor- 
derlich, weil REPEAT...UNTIL selbst bereits ei- 
ne (spezielle) Verbundanweisung darstelit. Wie 
vor dem END eines BEGIN-END-Verbundes 
muß auch vor dem UNTIL eines REPEAT-UN- 
TIL-Verbundes kein „;" stehen; es ist aber hier 
wie dort als Leeranweisung zulässig. 


Exkurs: Das Semikolon, 

oder wie man zum Puristen wird 

Die Semikolon-Regel für „vor und nach END" 
ist für Anfänger und Fortgeschrittene gleicher- 
maßen verwirrend. Allgemein gilt: 

1. Voreinem „END“ sollte nie (für Puristen: darf 
nie) ein „;" stehen. 

2. Nach einem „END“ muß meist ein Semiko- 
Ion stehen. Ausnahmen: „END.“ am Program- 
mende, „END“ vor „ELSE" u.a. 

3. Was passiert jedoch, wenn zwei „ENDs“ 
aufeinanderstoßen? Beispiel: 

PROGRAM FINALE; 


VAR |: INTEGER; 
BEGIN 

FOR I := 1 TO 10 DO 
BEGIN 

WRITELN (I + |); 
WARITELN (I |) {hier!} 
END {hier!} 

END. 


Die 3, Regel lautet dann; Vor einem „END 
steht kein Semikolon, wenn vor einem „END" 
ein „END“ steht. Ferner gilt der „Spezialfall“: 
Nach einem „END" steht kein Semikolon, wenn 
davor und danach das gleiche steht, wie das, 
was dazwischen steht. Gemeint ist das mittlere 
von drei „ENDs“... 
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Wenn Ihnen das alles zu „wirr“ ist, dann setzen 
Sie das Semikolon „aus Trotz“ und trösten Sie 
sich mit der Erkenntnis, daß selbst der „Pascal- 
Papst“ Niklaus Wirth in seinem „Pascal User 
Manual und Report“, 2. Aufl. 1978, S. 44, 54 
und 123 jeweils vor dem „END.“ ein Semikolon 
zuviel gesetzt hat. Auch in der Schweiz gibt es 
noch Willensfreiheit! 


8. String-Verarbeitung 


Einzelzeichen 


PRED und SUCC: Die von Integer-Zahlen be- 
reits bekannten Vorgänger- und Nachfolger- 
Funktionen gelten auch für den Char-Typ, z.B. 
WRITELN (PRED ('’Z)); 

ergibt „Y". 

WRITELN (SUCC ('Y’)}; 

ergibt „Z“. 

ORD und CHR: ORD ermittelt die „Ordnungs- 
zahl” eines ASCII-Zeichens, während CHR das 
ASCII-Zeichen zu einer vorgegebenen „Ord- 
nungszanhl" liefert, z.B. 

WRITELN (ORD (’A’)); 

ergibt die Integer-Zahl 65. 

WRITELN (CHR (65)); 

ergibt das Zeichen „A“. 


Gesamitstring 


LENGTH ermittelt die Länge eines Strings, z.B. 
WRITELN (LENGTH (’Peeker’)); 

ergibt die Integer-Zahl 6. 

CONCAT in der Form CONCAT (S1, S2, ...) 
dient der Verschmelzung von zwei oder mehre- 
ren Strings, z.B. 

S := CONCAT (’PAS’, 'CALY); 

WRITELN (S); 

ergibt „PASCAL". 

In Turbo-Pascal ist auch die Applesoft-Form 

S := 'PAS’ + 'CAL’ 

zulässig („+"-Zeichen). 


Teilstring 


Eine String-Variable wird, wie wir bereits erfah- 
ren haben, mit einer Längenangabe in eckigen 
Klammern definiert, z.B. 

VAR S: STRING[100]; 

Die einzelnen Zeichen eines Strings sind wie in 
Applesoft von 1 bis LENGTH durchnumeriert 
und haben damit eine Position, z.B. 

S := 'Peeker’; {123456} 

POS in der Form POS (T, G) ermittelt die Posi- 
tion P des Teilstrings T im Gesamtstring G, z.B. 
WRITELN (POS (’CAL’, 'PASCAL')); 
ergibt die Integer-Zahl 4, weil „C" das 4. Zei- 
chen von „PASCAL“ ist. Wird der Teilstring 
nicht gefunden, so liefert POS 0. 

COPY in der Form COPY (G, P, A) ergibt den 
Teilstring T als Zeichenanzahl A ab Position P im 
Gesamtstring G, z.B. 

T := COPY (’Peeker’, 5, 2); 

WRITELN (T); 

ergibt „er", weil dies die 2 Zeichen ab dem 5. 
Zeichen von „Peeker“ sind. 

S[P] := C ersetzt das Zeichen in der Position P 
des Strings S durch das Einzelzeichen C vom 
Typ Char, z.B. 

S = 'lle’; 

Bl 2 

WRITELN (S); 

ergibt „Ilc". 
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Die Umkehrung © := SI[P] ist ebenfalls möglich 
(Einzelzeichen-COPY-Befenhl). 

FILLCHAR in der Form FILLCHAR (G[P], A, ©) 
ersetzt im Gesamtstring G ab Position P die 
Zeichenanzahl A durch das Char-Zeichen © 
(Beispiel s. Listing). 


INSERT und DELETE: Dies sind keine Funk- 
tionen, sondern eingebaute Prozeduren, so daß 
keine Wertzuweisung in der Form S := ... erfol- 
gen darf. 

INSERT (T, G, P) fügt den Teilstring T in den 
Gesamtstring G ab Position P ein. DELETE (G, 
P, A) entfernt aus dem Gesamtstring G die 
Zeichenanzahl A ab der Position P. Beispiele: 
IT=EPR: 

GE: =sALE" 

INSERTL ICHS, 2); 

WRITELN (G); 

ergibt „APPLE“. 

DELETE (G, 2, 4); 

WRITELN (G); 

ergibt „A". 

Abschließend sei bemerkt, daß die String-Ope- 
rationen nur teilweise gegen illegale Parameter 
abgesichert sind, so daß man entsprechende 
Vorsicht walten lassen sollte. 


a 


IV. Pascal-Bücher 


Aus der riesigen Fülle der Pascai-Literatyr grei- 
fen wir einige wichtige Titel heraus. 


1. Standard-Pascal 


Pascal User Manual and Report 

von Kathleen Jensen und Niklaus Wirth 

2. Aufl. 1978, 167 S., Manuskriptbuch, kart. 
Springer-Verlag, Heidelberg 

Obwohl denkbar primitiv in der herstellerischen 
Ausstattung, ist dieser Titel ein „Muß“ für all 
diejenigen, die sich über die genaue Syntax von 
Standard-Pascal informieren wollen. Der erste 
Teil enthält in der Art eines anspruchsvollen und 
mehr für Informatik-Studenten gedachten Tuto- 
rials einen Überblick über Pascal mit zahlrei- 
chen Programmbeispielen, während der zweite 
Teil eine abstrakte, stark formalistische Be- 
schreibung der Sprache und ihrer Elemente 
bietet. Für Anfänger nicht geeignet. 


Algorithmen und Datenstrukturen 

von Niklaus Wirth 

3. Aufl. 1983, 320 S., kart. 

Teubner-Verlag, Stuttgart 
Eigentlich handelt es sich bei diesem Titel um 
ein Informatik-Lehrbuch. Da jedoch alle Pro- 
grammbeispiele in Pascal geschrieben sind, 
kann es auch als Pascal-Lektüre für forige- 
schrittene Programmierer mit Informatik-Back- 
ground benutzt werden. Für Anfänger nicht ge- 
eignet. 


Pascal: Einführung — Programmentwicklung 
— Strukturen 

von Jürgen Plate und Paul Wittstock 

1982, 387 S., geb. 

Franzis-Verlag, München 
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Dieses Buch stellt eine umfangreiche Einfüh- 
rung in Standard-Pascal dar und eignet sich für 
diejenigen Apple-Besitzer, die zusätzlich auf ei- 
nem Großrechner programmieren wollen oder 
müssen. Für reine Apple-Programmierer wäre 
es dagegen eher verwirrend, weil man bei zu 
vielen Befehlen umdenken müßte. Insgesamt 
ein gutes und ansprechendes Buch, wenn- 
gleich nicht immer präzis genug definiert wird. 
Beispiel: „Als Seiteneffekt werden Zuweisun- 
gen an globale Variable bezeichnet" (S. 129). In 
dem Buch von Gruber, S. 230, s.u. wird besser 
definiert: „Man spricht von Seiteneffekt, wenn 
einer globalen Variablen in einem untergeord- 
neten Block ein Wert zugewiesen wird.” 


2. UCSD-Apple-Pascal 


Um es vorweg zu sagen: Es gibt zwar viele 
Bücher über USCD-Pascal und zahlreiche über 
Apple-UCSD-Pascal, aber leider kein einziges 
Buch, das Apple-Pascal systematisch bis in die 
letzten Details behandelt. Die meisten Titel ge- 
hen über die Anfangsgründe nicht hinaus. 


Apple Pascal 

1. Operating System Reference Manual, 1980, 
298 S., spiralgeb., mit 16seitigem Addendum, 
geh. 

2. Language Reference Manual, 1980, 208 S., 
spiralgeb., mit 16seitigem Addendum, geh. 

3. 1.2 Update Manual, 1983, 99 S., spiralgeb. 
Apple, München 

Deutsche Übersetzung bei Tewi, München 
Dies sind die offiziellen Handbücher, die beim 
Kauf von Apple-Pascal mitgeliefert werden. Das 
Operating-Manual enthält eine gründliche und 
gut verständliche Übersicht über das Betriebs- 
system (Filer, Editor, Compiler, Assembler, Lin- 
ker, Utility Programs u.a.). Dagegen ist das 
Language-Manual ein Stückwerk, weil es nur 
auf diejenigen Besonderheiten eingeht, in de- 
nen sich Apple-UCSD-Pascal von „Standard- 
UCSD-Pascal“ unterscheidet. Wie wir jedoch 
gesehen haben, sind viele Dinge nicht standar- 
disiert, so daß man sich in der berüchtigten 
Versuch-und-Irrtum-Methode vortasten muß. 
Nachteilig ist ferner die nicht-integrierte Darstel- 
lung durch Addenda und Supplement. Eigent- 
lich ist das Manual in drei Auflagen erschienen, 
Anstatt daß man, wie dies bei Buchverlagen 
üblich ist, die Änderungen in die verschiedenen 
Kapitel der jeweiligen Neuauflage einarbeitete, 
schuf man zunächst die Addenda zu den Manu- 
als und später das Supplement zu den Adden- 
da, also quasi den Appendix zum Appendix. 
Auch der Tewi-Verlag hat die Addenda und das 
Supplement nicht integriert. Trotz alledem sind 
diese Handbücher unverzichtbar. 


Apple Il Pascal 

von Arthur Luehrmann und Herbert Peckham 
1982, ca. 450 S. (kapitelweise paginiert), kart. 
Tewi-Verlag, München 

Dieses Buch wird zusätzlich kostenlos mitgelie- 
fert, wenn man das Apple-Pascal-Betriebssy- 
stem erwirbt, kann aber auch separat gekauft 
werden. Meines Erachtens ist diese Einführung 
viel zu weitschweifig und aufgebläht. Jedes der 
Mini-Programme - meist 5-10-Zeiler — wird sei- 
tenlang erläutert. Wem diese Darstellungform 











zusagt, möge zu diesem Buch greifen. Viele der 
spezielleren Befehle wie LABEL, GOTO, FILL- 
CHAR, UNITREAD, BLOCKREAD, WSTRING 
usw. werden jedoch nicht behandelt. Ferner 
wurde das Library-Konzept (Units, Assembler 
usw.) ausgespart. Für Anfänger geeignet. 


UCSD Pascal 1 

von Anton Gruber und Silvia Gutschmidt 

1981, 294 S., kart. 

Interface-Verlag, Haar 

Dieses Buch, dessen Programme noch auf dem 
ITT geschrieben wurden, ist eine auffallend gut 
gegliederte, zügig von den leichteren zu den 
schwierigeren Befehlen voranschreitende Dar- 
stellung von Apple-UCSD-Pascal mit präzisen 
Definitionen. Manche Anfänger werden das 
Buch jedoch wegen der etwas spartanischen 
Beispielprogramme für zu formalistisch halten, 
denn die Darstellungsform ist dem obigen Titel 
von Luehrmann/Peckham diametral entgegen- 
gesetzt. Leider ist nur der erste Band erschie- 
nen, so daß beispielsweise die HGR-Befehle 
oder 6502-Assembler nicht behandelt werden. 


Grundkurs in Pascal 

von Karl-Herrmann Rollke 

Band 1, 4. Aufl. 1985, 221 S., kart. 

Band 2, 1. Aufl. 1985, 217 S., kart. 

Obwohl es der Titel nicht verrät, wird in diesem 
zweibändigen Lehrbuch nur Apple-UCSD-Pas- 
cal behandelt. Von allen mir bekannten Pascal- 
Büchern ist dieser Grundkurs mit Abstand die 
didaktisch am besten gelungene Einführung in 
Apple-Pascal. Das Werk ist primär für den 
Schulunterricht an Gymnasien gedacht, eignet 
sich jedoch auch vorzüglich zum Selbststu- 
dium, Der Autor hat sich im übrigen nicht ge- 
scheut, im zweiten Band auch auf die 6502- 
Programmierung einzugehen, obwohl die Pro- 
grammtbeispiele hier trivialer Natur sind. Erwäh- 
nenswert ist auch die vorbildliche typographi- 
sche Gestaltung, was angesichts der vielen auf 
die Schnelle von mehr schlechten als rechten 
Manuskripten abphotographierten „Bücher“ 
von Verlagen wie Data-Becker, Vieweg, Luther, 
Teubner u.a. heute leider keine Selbstverständ- 
lichkeit mehr ist. Solche Bücher darf man teil- 
weise nicht einmal postalisch als Büchersen- 
dung verschicken; dies sagt wohl alles. Pro- 
grammlistings in Büchern wird man wohl immer 
in Matrix- oder Typenraddruckerform akzeptie- 
ren müssen, denn nur beim Peeker sind wir 
infolge der Spezialisierung auf einen Gerätetyp 
in der technischen Lage, Listings normal im 
Lichtsatz zu produzieren. Ferner wird man bei 
wissenschaftlichen Monographien, die nur in 
kleiner Auflage gedruckt werden, Manuskript- 
bücher auch in Zukunft in Kauf nehmen müs- 
sen. Doch wenn ein Lehrbuch wie etwa der 
Grundkurs von Kaier/Rudolfs (s.u.) aus 
„schreibmaschinentechnischen“ Gründen auf 
kursive und halbfette Hervorhebungen verzich- 
tet und eckige Klammern und sonstige Sonder- 
zeichen „von Hand“ vermerkt, dann ist wohl die 
Grenze des didaktisch-pädagogisch Zumutba- 
ren erreicht. Man lege einmal das Rollke- und 
das Kaier-Buch nebeneinander. Bei Rollke 
halbfette und kursive Merksätze und Margina- 
lien und saubere technische Zeichnungen, bei 
Kaier schwer lesbare Sperrschrift und „Frei- 
handzeichnungen". 
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Um den uns überaus zusagenden Grundkurs in 
späteren Auflagen noch besser zu machen, sei 
auf einige Fehler aufmerksam gemacht: 

Band 1, S. 47: PWROFTEN hat nur Integer-Zahl 
als Argument (dto. S. 204). 

S. 57: Ersatzsymbole „(. .)“ gelten nicht für 
Apple-Pascal. 

S. 71: „12.“ oder „15.“ sind keine gültigen 
Real-Zahlen. 

S. 112: „Ausdruck“ für Selektor bei CASE- 
Definition nicht ganz korrekt. 

S. 178: „A<=x<=E", also x statt I. 

Band 2, S. 10: VAR I statt VAR 1. 

S, 22: Produkt.Name := 'Buecher’ funktioniert. 
S. 26: „(TRÜE: Art: Strahlung)“ ohne Klammer 
vor TRUE. 

S.307,SERSEINTEGERT Talsch: 

S. 184: „READ .../" und „WRITE. ../". falsch 


Ali About Pascal 

Überwiegend Reprints von alten „Call- 
A.P.P.L.E."-Aufsätzen 

1982, 183 S., kart, 

Dieses Buch enthält viele nützliche Anregungen 
für fortgeschrittene Pascal- und besonders für 
Assembler-Programmierer mit zahlreichen Utili- 
ties und Interna (Systemadressen usw.), die 
sich allerdings noch auf Äpple-Pascal 1.1 bezie- 
hen. Der Reader ist leider auf braunem Papier 
gedruckt und daher schlecht lesbar. 


3. Turbo-Pascal 


Zu Turbo-Pascal gibt es bislang keine Bücher, 
die auf die Besonderheiten unter Apple-CP/M 
eingehen, geschweige denn die apple-spezifi- 
schen Hardware-Gegebenheiten wie HGR-Gra- 
fik usw. in die Darstellung mit einbeziehen. 


Turbo Pascal Handbuch 3.0 

1985, 374 S., kart. 

Heimsoeth, München 

Dies ist das offzielle Manual, das in Verbindung 
mit der Systemdiskette geliefert wird. Das Buch 
ist recht formalistisch aufgebaut und damit für 
Anfänger nicht geeignet, doch ist es zum Nach- 
schlagen unverzichtbar. Ab S. 159 werden die 
IBM-PC-Extras behandelt, und ab S. 259 wird 
auf die CP/M-80-Besonderheiten (apple-un- 
spezifisch) eingegangen. Leider kann man sich 
nicht des Eindrucks erwehren, daß der Überset- 
zer von der Materie offenbar keine Ahnung hat- 
te. So wird z.B. auf S. 311 von den „nach 
abnehmender Wichtigkeit“ gruppierten Opera- 
toren gesprochen. „x“ ist jedoch nicht wichti- 
ger als „+“, sondern hat bei der Auswertung 
von Formelausdrücken Vorrang vor „+". Als 
Pascal-Kenner kann man sich in diesen und 
ähnlichen Fällen zusammenreimen, was ge- 
meint ist, als Pascal-Neuling jedoch leider nicht. 


Turbo Tutor 

1985, ca. 200 S. (kapitelweise paginiert), kart. 
Heimsoeth, München 

Dies ist das Tutorial zu dem obigen Handbuch. 
Leider enthält dieses Buch, das offenbar ein 
„schnellschuß“ ist, erschreckend viele Tipp- 
fehler. Einer meiner Freude, der sich die Mühe 
machte, etliche der gelisteten Programme abzu- 
tippen, mußte leider feststellen, das sie wegen 
der Druckfehler teilweise nicht lauffähig sind, 
Außerdem scheint der Übersetzer beim 
Deutschunterricht in der Schule gefehlt zu ha- 
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ben. Es empfiehlt sich daher, auf eine hinsicht- 
lich der Orthographie und Interpunktion verbes- 
serte Neuauflage zu warten, zumal das Buch 
auch sachliche Fehler aufweist, z. B. „Klingel: 
Char = Chr (7)" funktioniert nicht (s. 18-22). 


Turbo Pascal-Wegweiser Grundkurs 

von Ekkehard Kaier und Edwin Rudolfs 

1985, 262 S., Manuskriptbuch, kart. 
Vieweg-Verlag, Braunschweig 

Dieser erste Band - nach dem Grundkurs wird 
noch ein Aufbaukurs folgen - stellt eine gründli- 
che und gut aufbereitete, jedoch durch die 
Schreibmaschinentypographie didaktisch ent- 
wertete Einführung in Turbo-Pascal dar. Die 
Programmbeispiele sind überwiegend aus dem 
kaufmännischen Schulunterricht entnommen, 
was jedoch den Nutzen des Buches nicht 
schmälert. Wenn ein Peeker-Leser noch das 
Heft 1/1984 besitzt, so möge er einmal den 
Aufsatz „Turbo-Pascal — Schritt für Schritt“ von 
Dr. Ekkehard Kaier mit dem „Turbo Pascal- 
Wegweiser“, S. 43 ff. vergleichen („Programm- 
erstellung in 11 Schritten“). Er wird dann fest- 
stellen, daß aus dem Peeker ohne Quellenan- 
gabe „entlehnt“ wurde. Plagiarius te salutat... 


V. Pascal-Wortregister 


Die nachfolgende Liste faßt die reservierten 
Wörter und vordefinierten Bezeichner von 
UCSD- und Turbo-Pascal in einem Gesamtal- 
phabet zusammen. Außerdem sind die Be- 
zeichner der normalen UCSD-SYSTEM.LIBRA- 
RY berücksichtigt worden; auf die Namen von 
Variablen und Konstanten, z.B. REVERSE, wur- 
de dabei allerdings verzichtet, Die kleinge- 
schriebenen Wörter sind in diesem Kurs noch 
nicht behandelt worden. Manche Befehle kön- 
nen Funktionen und Prozeduren sein, z.B. 
BLOCKREAD in Turbo-Pascal. In solchen und 
ähnlichen Fällen mußte der Kürze wegen eine 
willkürliche Kategorisierung vorgenommen 
werden. 

Wenn der Vermerk „UCSD“ oder „Turbo“ fehlt, 
so handelt es sich um gemeinsame Befehlswör- 
ter beider Dialekte. Man beachte jedoch, daß 
„gleiche Befehlswörter = gleiche Befehle“ 
nicht immer gilt (s. READ usw.), so daß man 
dem Recister natürlich keine Feinheiten ent- 
nehmen kann. 

Der Anfänger möge sich nicht durch die riesige 
Befehlsliste abschrecken lassen, denn zahlrei- 
che Befehle werden praktisch kaum benötigt 
(z.B. AUX) oder funktionieren nicht (z.B. INS- 
LINE bei normaler 80-Zeichenkarte) oder sind 
nicht in den Handbüchern erwähnt, z.B. 
CBREAK für Otrl-C-Test. 


UCSD = nur in UCSD-Apple-Pascal 1.1 vor- 
handen (1.2 gesondert vermerkt) 

Turbo = nur in CP/M-Turbo-Pascal 3.0 vor- 
handen 

Const = Konstante 

File = Datei (einschließlich der Periperiegeräte) 
Function = Funktion 

Procedure = Prozedur 

Reserved = reserviertes Wort 

Type = Datentyp 

UCSD-Lib = UCSD-Library 





Wörter 
ABS (Function) 

absolute (Reserved, Turbo) 
addr (Function, Turbo) 

AND (Reserved) 

append (Procedure, Turbo) 
applestuff (UCSD-Lib-Unit) 
ARCTAN (Function, Turbo) 
array (Reserved) 

assign (Procedure, Turbo) 
ATAN (Function, UCSD-Lib) 
aux (File, Turbo) 

auxinptr (Function, Turbo) 
auxoutptr (Function, Turbo) 
bdos (Procedure, Turbo) 
bdoshi (Function, Turbo) 
BEGIN (Reserved) 

bios (Procedure, Turbo) 
bioshl (Function, Turbo) 
blockread (Function) 
blockwrite (Function) 
boolean (Type) 

buflen (Function, Turbo) 
button (Function, UCSD-Lib) 
byte (Type, Turbo) 

CASE (Reserved) 

cbreak (Function, Turbo) 
chain (Procedure, Turbo) 
chainstuff (UCSD-Lib-Unit) 
char (Type) 

chartype (Procedure, UCSD-Lib) 
CHR (Function) 

close (Procedure) 

clreol (Procedure, Turbo) 
CLRSCR (Procedure, Turbo) 
code (Reserved, UCSD) 
con (File, Turbo) 

CONCAT (Function) 
coninptr (Function, Turbo) 
conoutptr (Function, Turbo) 
console: (File, UCSD) 
CONST (Reserved) 

constptr (Function, Turbo) 
COPY (Function) 

COS (Function, UCSD-Lib + Turbo) 
crtexit (Procedure, Turbo) 
ertinit (Procedure, Turbo) 
data (Reserved, UCSD) 
delay (Procedure, Turbo) 
DELETE (Procedure) 

delline (Procedure, Turbo) 
dispose (Procedure, Turbo) 
DIV (Reserved) 

DO (Reserved) 

DOWNTO (Reserved) 
drawbock (Procedure, UCSD-Lib) 


ELSE (Reserved) 


END (Reserved) ' 

eof (Function) 

eo!n (Function) 

erase (Procedure, Turbo) 
errorptr (Function, Turbo) 
execute (Procedure, Turbo) 
exit (Procedure) 

EXP (Function, UCSD-Lib + Turbo) 
external (Reserved) 
false (Const) 

file (Reserved) 

filepos (Function, Turbo) 

filesize (Function, Turbo) 
FILLCHAR (Procedure) 

fillscreen (Procedure, UCSD-Lib) 
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dä 


flush (Procedure, Turbo 
FOR (Reserved) 
forward (Reserved) 
FRAC (Function, Turbo) 

freemem (Procedure, Turbo) 
function (Reserved) 

get (Procedure, UCSD) 

geteval (Procedure, UCSD-Lib) 
getmem (Procedure, Turbo) 
GOTO (Reserved) 

GOTOXY (Procedure) 

grafmode (Procedure, UCSD-Lib) 
halt (Procedure) 

heapptr (Type, Turbo) 


'hi (Function, Turbo) 


highvideo (Procedure, Turbo) 
idsearch (Procedure, UCSD) 
IF (Reserved) 
implementation (Reserved, UCSD) 
in (Reserved) 
initturtle (Procedure, UCSD-Lib) 
inline (Reserved, Turbo) 

input (File) 

INSERT (Procedure) 

insline (Procedure, Turbo) 

INT (Function, Turbo) 

INTEGER (Type) 

interactive (Type) 

interface (Reserved, UCSD) 
intrinsic (Reserved, UCSD) 
ioresult (Function) 

KBD (File, Turbo) 

KEYBOARD (File, UCSD) 
keypress (Function, UCSD-Lib) 
keypressed (Function, Turbo) 
LABEL (Reserved) 

LENGTH (Function) 

LN (Function, UCSD-Lib + Turbo) 
Io (Function, Turbo) 

LOG (Function, UCSD-Lib) 
LOWVIDEO (Procedure, Turbo) 
Ist (File, Turbo) 

Istoutptr (Function, Turbo) 

mark (Procedure) 

maxavail (Function, Turbo) 
MAXINT (Constant) 

mem (Type, Turbo) 

MEMAVAIL (Function) 

MOD (Reserved) 

move (Procedure, UCSD-Lib) 
move (Procedure, Turbo) 
moveleft (Procedure, UCSD) 
moveright (Procedure, UCSD) 
moveto (Procedure, UCSD-Lib) 
new (Procedure) 

NORMVIDEO (Procedure, Turbo) 
nil (Const) 

NOT (Reserved) 

note (Procedure, UCSD-Lib) 
odd (Function) 

OF (Reserved) 

openold (Procedure, UCSD) 
opennew (Procedure, UCSD) 
OR (Reserved) 

ORD (Function) 

output (File) 

overlay (Reserved, Turbo) 
ovrdrive (Procedure, Turbo) 
packed (Reserved, UCSD) 
paddle (Function, UCSD-Lib) 
PAGE (Procedure, UCSD) 
paramcount (Function, Turbo) 











paramstr (Function, Turbo) 
pencolor (Procedure, UCSD-Lib) 
PI (Const, Turbo) 

port (File, Turbo) 

POS (Function) 

PRED (Function) 

printer: (File, UCSD) 
PROCEDURE (Reserved) 
PROGRAM (Reserved) 

ptr (Function, Turbo) 

put (Procedure, UCSD) 
PWROFTEN (Function, UCSD) 
RANDOM (Function, UCSD-Lib + Turbo) 
randomize (Procedure, UCSD-Lib + Turbo 
READ (Procedure) 

READLN (Procedure) 

REAL (Type) 

record (Reserved) 

recurptr (Type, Turbo) 

release (Procedure} 

remin: (File, UCSD) 

remout: (File, UCSD) 

remstatus (Function, UCSD, nur 1.2) 
rename (Procedure, Turbo) 
REPEAT (Reserved) 

reset (Procedure) 

rewrite (Procedure) 

ROUND (Function) 

scan (Function, UCSD) »- 

screenbit (Function, UCSD-Lib) 
screencolor (Type, UCSD-Lib) 
seek (Procedure) 

seekeof (Function, Turbo) 
seekeoln (Function, Turbo) 
segment (Reserved, UCSD) 

set (Reserved) 

setchain (Procedure, UCSD-Lib) 
setcval (Procedure, UCSD-Lib) 

shl (Reserved, Turbo) 

shr (Reserved, Turbo) 

SIN (Function, UCSD-Lib + Turbo) 
sizeof (Function) 

SOR (Function) 

SORT (Function, UCSD-Lib + Turbo) 
stackptr (Type, Turbo) 

str (Function; UCSD-Long-Integer) 
str (Function; Turbo-Real/Integer) 
STRING (Type) 

SUCGC (Function) 

swap (Function, Turbo) 

swapgpon (Procedure, UCSD-Lib, nur 1.2) 
swapon (Procedure, UCSD-Lib) 
swapoff (Procedure, UCSD-Lib) 
systerm: (File, UCSD) 

text (Type) 

textmode (Procedure, UCSD-Lib) 
THEN (Reserved) 

time (Procedure, UCSD) 

TO (Reserved) 

transcend (UCSD-Lib-Unit) 
treesearch (Function, UCSD) 

trm (File, Turbo) 

true (Const) 

TRUNG (Function) 

ttiout (Procedure, UCSD-Lib) 

turn (Procedure, UCSD-Lib) 

turnto (Procedure, UCSD-Lib) 
turtleang (Function, UCSD-Lib) 
turtlegraphics (UCSD-Lib-Unit) 
turtlex (Function, UCSD-Lib) 
turtley (Function, UCSD-Lib) 

type (Reserved) 










































































unit (Reserved, UCSD) 
unitbusy (Function, UCSD) 
unitclear (Procedure, UCSD) 
unitread (Procedure, UCSD) 
unitstatus (Procedure, UCSD) 
unitwait (Procedure, UCSD) 
unitwrite (Procedure, UCSD) 
UNTIL (Reserved) 

upcase (Function, Turbo) 
USES (Reserved, UCSD) 
usr (File, Turbo) 

usrinptr (Function, Turbo) 
usroutptr (Function, Turbo) 
val (Procedure, Turbo) 

VAR (Reserved) 





viewport (Procedure, UCSD-Lib) 


wchar (Procedure, UCSD-Lib) 
WHILE (Reserved) 

with (Reserved) 

wstring (Procedure, UCSD-Lib) 
WRITE (Procedure) 

WRITELN (Procedure) 

xor (Reserved, Turbo) 


Hinweis zum Teil 2 


Der 2. Teil des Kompaktkurses 


wird 


sich mit den pascaltypischen Befeh- 
len, Datentypen und Strukturen be- 





fassen. 
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{KURS1} 

{Pascal fuer Applesoft-Programmierer 
von U. Stiehl/8.8.85 

PA = Pascal; AS = Applesoft 

Laenge TEXT: 36, CODE: 18 Blocks, 
Compilierungszeit: 139 Sek. 


1.8. Kopf/Konstanten/Variablen 
PROGRAM, CONST, VAR; 

INTEGER, REAL, CHAR, STRING; 
USES, TRANSCEND, APPLESTUFF} 





PROGRAM BEISPIELE; 


{Unit TRANSCEND fuer SIN, COS, EXP, 
ATAN, LN, LOG und SORT; 
Unit APPLESTUFF fuer RANDOM} 


USES TRANSCEND, APPLESTUFF; 


{Konstantendsefinition 


Namen: 
FA: max. 8 Buchstaben/Ziffern 
Typzusatz entfaellt; 
: max. 2 Buchstaben/Ziffern 
Typzusatz % + $ erforderlich} 


199; {AS: IK% 
189.5; {AS: RK 
ae E {AS: CK$ 
'Peeker'; {AS: SK$ 


198} 
189.5} 
pn | 
"Paeker"} 


{Variablendefinition 


Tan nn = 


Integer: 
: Integer ca. +/-32767 
: ditto 


: ca. +/-1.23456E-37 
: ca. +/-1.234567896-37 


: ein EINZELNES Zeichen 
: nur normaler String 
String: 
PA: 1-255 Zeichen mit Laenge 
AS: 1-255 Zeichen ohne Laenge} 


: INTEGER; {AS: IVZ) 

: REAL; {AS: RV} 

: CHAR; {AS: cv$ 1) 
: STRING [255]; {AS: SvV$} 


{Hilfsvariablen fuer Beispiele} 


IH: INTEGER; {AS: IH%} 
RH: REAL; {AS: RH} 
CH: CHAR; {AS: CH$} 
SH: STRING [255]; {AS: SH$} 





R: CHAR; {Return R$} 
T: CHAR; {Taste T$} 


{2.8. Beispielprogranne 
PROCEDURE, BEGIN, END} 


{Die Befehlsfolge in PA: 
PROCEDURE NAME; 
BEGIN 
END; 

lautet in AS: 
1908 REM Beginn Subroutine 
LALO® 
1898 RETURN. 

Aufruf erfolgt in PA mit: 
NAME; 

und in AS mit: 
GOSUB 1998} 


Le. Bildschirm-Ausgabe 


CHR(12) Home, CHR(13) Return; 
CHR(15) Inverse, CHR{14) Normal; 
WRITE, WRITELN; 

GOTOXY} 
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PROCEDURE BILDSCHIRMAUSGABE; 
BEGIN 


{AS: HOME 
PA:} 
WRITE ({CHR(12))}; 


{AS: PRINT 
PA: } 
WRITELN; 


{AS: PRINT CHR$(13); 
PA:} 
WRITE (CHR(13)}; 


{AS: PRINT "Hans"; " Meier" 
PA:} 
WRITELN ('Hans'’, ' Meier'); 


{AS: PRINT "Hans"; R$; "Meier"; 
PA:} 
WRITELN ('Hans', R, 'Meier', R); 


{AS: INVERSE: 
PRINT "Den Apostroph ' so"; R$: 
NORMAL 
PA:} 
WRITELN (CHR (15), 
'Den Apostroph '' so!, 
CHR (14), R): 


WRITE {'WRITE ohne Return: '); 

{AS: PRINT 1;: PRINT 2: 
PRINT 2.3; ERINE I I: 
FRINTLTAN?: 
PRINT: PRINT 

PA:} 

WRITE (1); WRITE ('! '); 

WRITE (2.3); WRITE (' '); 

WRITE ('!A’); 

WRITELN; WRITELN; 

{Returns hier nachgeholt} 


+ 


TAS'WPRINTEIKZ VEIT RK gu 
CK$; " "5 SK$ 
PA:} 
WRITELN (IK, ' ', RK, 
nn SE 


{AS: HTAB 30: VTAB 28: 

PRINT "Hier";: 

HTAB 36: VTAB 19: 

PRINT "Daueber";: 

HTAB 1: VTAB 1: 
PRINT "Oben links";: 

HTAB 1: VTAB 28: 
PRINT "Zeile 28" 
PA:} 

GOTOXY (29, 19}; 

WRITE ('Hier'); 

GOTOXY (29, 18); 

WRITE {'Darueber'); 

GOTOXY (8,9); 

WRITE ('Oben links’); 

GOTOXY (8, 19); 

WRITELN ('Zeile 2$') 


% 


END; 


{2.2. Formatierung 


WRITELN (AUSDRUCK:G:N)} 


PROCEDURE FORMATIERUNG; 
BEGIN 


WRITELN ('Pascaltypische, ', 
'rechtsbuendige Formatierung'); 

{ 'AUSDRUCK:G:N' fehlt in AS, 
"AUSDRUCK:G' durch SPC simulierbar} 


WRITELN (R, '"AUSDRUCK:G:N'); 


WRITELN (R, 'Fliesskomnazahl mit ', 
'19 Gesamtstelien G und l, 2, 3 ', 
'Nachkommastellen N', R); 


WRITELN ('/', 123.4567, ' -> 
'/‘, 123.4567:18:1, 
'/‘, 123.4567:19:2, 
'/‘, 123.4567:19:3, 








WRITELN (R, 'AUSDRUCK:G', R); 


{AS: PRINT "Zehn"; SPC (19); "Spaces" 
PA:} 
WRITELN ('Zehn!', '':19, 'Spaces'); 


WRITELN (R, 'Integerzahl mit ', 
'6, T, 8 Gesamtstellen', R); 


{AS: PRINT "/"; 1: ">"; 
w/m: SPC (6-LEN (STR$ (-1 
"/": SPC (7-LEN (STR$ (-1 
"/n; SPC (B-LEN (STR$ (-1 
nA 
PA:} 
WRITELN ('/', 1, 11, 
421,6, 
en 
'/', -1:8, 
SEE 


WRITELN (R, "String mit ', 
'18, 15, 28 Gesamtstellen', R}; 


(AS: PRINT "/"; SK$; ">"; 
"/n: SPC {1ß-LEN (SK$)); SK$; 
"/ms: SPC (15-LEN (SK$)); SK$:; 
n/n. SPC (2ß-LEN (SK$)); SK$ 
PA:} 


WRITELN ('/', SK, ' —> ', 
ı?!, SK:19, 
fe SK:lB, 
RA SK:2ß, 2) 


END; 
{2.3. Wertzuweisungen 


PA: ':='!; AP: '='; 
MAXINT} 


PROCEDURE WERTZUWEISUNG; 
BEGIN 


WRITELN (''"'Literals''', R); 


{AS: RV 765.432: IVZ = 333: 
cVv$ = "ZN": SYos-zlahc": 
PRINT RV: PRINT IV%: 
PRINT CV$: PRINT SV$ 

PA:} 

RV:= 765.452; IV:= 765; 

[Yı= '2'; SV:= 'abc!; 

WRITELN (RV); WRITELN (IV); 

WRITELN (CV): WRITELN (SV); 


WRITELN (R, '"Konstanten', R); 


{AS: RV RK: IV% = IK%: 
CK$: SV$ = SK$: 
Io 1. IV%; ie Aue: 


. 1 


CV, 


WRITELN ({R, 'Systemkonstanten', 
".2,B MAXINT:',R); 


{AS: IV = 32767: PRINT IV%: 


IVZ = -32767: PRINT IV% 


MAXINT; WRITELN (IV); 
—MAXINT; WRITELN (IV) 


{2.4. Tastatur-Eingabe 
READ, READLN, KEYBOARD} 


PROCEDURE TASTATUREINGABE; 
BEGIN 


WRITE {R, 'READ', R, 
'Mit Anzeige der Taste: '); 


{AS: PRINT "Char: ";: GET cVv$: 
PRINT CV$;: 
PRINT R$; "Eingegeben: "; CV$ 
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PA:} 
WRITE ('Char: '); READ (CV); 
{Kein WRITE!} 
WRITELN {R, 'Eingegeben: ', CV}; 


WRITE (R, 'READ (KEYBOARD, Taste)', 
R, 'Ohne Anzeige der Taste: ')}; 


{AS: PRINT "Char: ";: Get cVv$: 
PRINT R$; "Eingegeben: "; CV$; 
a ASCHTTEASCTICVE]; 
PA: } 
WRITE ('Char: '); READ (KEYBOARD, CV); 
WRITELN {R, 'Bingegeben: ', CV, 
', ORD.', ORD {CV)): {s.u. 2,8.} 


WRITE (R, 'READLN von Strings: ', R); 


{AS: INPUT "String: "; SV$: 
PRINT "Eingegeben: "; SV$ 
{REM Oder analog zu PA: 
PRINT String: ";: 
INPUT ""; Sv$) 
PA:} 
WRITE ('String: '); READLN (SY); 
WRITELN {'"Eingegeben: ', SV); 
WRITELN 
(R, CHR (15), 'Keine Stringeingabe', 
R, 'bei Zahlen-READLN!!', CHR {14)); 
{AS: HTAB 19: VTAB 18: 
INPUT "lz Real: "; RV: 
HTAB 38: VTAB 18: 
INPUT "2, Integer: "; IV%: 
PRINT: PRINT "Eingegeben "; 
IRaal x n 5 RY:; HM A Tr 5 
"Integer: "; IVZ 
PA} 
GOTOXY (9, 17); 
WRITE ('l. Real: '); READLN (RV}; 
GOTOXY (29, 17); 
WRITE ('2. Integer: '); READLN (IV); 
WRITELN; WRITELN ('Eingegeben ', 
Real: ', RV:18:2, ', ', 
"Integer: ', IV:6) 


END; 
{2.5. Integer-Mathematik 


+, -, * 

DIV, MOD; 
ABS, SOR; 
PRED, SUCC; 
ROUND, TRUNC; 
RANDOM 
PWROFTEN} 


PROCEDURE INTEGERMATHE; 
BEGIN 


RRITELN ('+, - und #', R); 


{AS: IVZ = 18 + 28: 
PRINT "1 + 28 = ": IVZ: 
IVZ = 28 - 1ß: 
PRINT "28 - 18 = "; IV%: 
Iv& = 19 « 1: 
PRINT "18 & 18 = "; IV: 
PA:} 
IV:= 18 + 28; 
WRITELN ('18 + 28 = ', IV:6); 
IV:= 208 - 18; 
WRITELN ('28 - 18 = !, IV:6); 
Iv:= 18 » 18; 
WRITELN ('19 = 18 MIV:o): 


WRITELN (R, 'Quotient und Rest: 
{Kein Modulus-Befehl in AS!} 


{AS: PRINT IK%:: REM 198 
PRINT " geteilt durch ";: 
IH$ = 7: 
PRINT IH#;: 
PRINT " = ";: 
IyZ = INT (IKZ / IH%): 
PRINT IV%;: 
PRINT " Rest ";: 
REM MOD-Formel 
IVZ = INT ( (IKZ / IH% 


-— INT (IK% / IH%)}) 
* IHZ + 0.05 ) 
* SGN (IK% / IHR}: 
PRINT IVZ 
PA:} 
WRITE (IK); {189} 
WRITE (' geteilt durch '); 
IH:= 7; 
WRITE (IH); 
WRITE {(' = '); 
IV:= IK DIV IH; 
WRITE {IV}; 
WRITE ('! Rest '); 
IV:= IK MOD IH; 
WRITELN (IV); 


WRITE {R, '"Absolutbetrag /-I/: '}; 


{AS: IHZ = -T: 
IV& = ABS (IH%): 
PRINT IH%; " -> "; IV3 
PA:} 
IH:= -7; 
IV:= ABS (IH); 
WRITELN (IH, '! -> ', IV); 


WRITE {R, "Quadrat: I # I: '); 
{Kein eigener Befehl in AS!} 


{AS: IHZ:= 28: 
IVZ:= IHZ « IH%: 
PRINT "Quadrat von "; IH%;: 
PRINT a ists "#177 

PA:} 

IH:= 29; 

IV:= SOR (IH); 

WRITE {'Quadrat von ', IH); 

WRITELN ('! ist ', IV); 


WRITE (R, 'Vorgaenger/Nachfolger: '); 
{In AS simulierbar} 


{AS: IH = 28: 
PRINT IH%;: 
ERLI  Su- 
PRINT "Vorgaenger "; IH - 1:: 
PRINT el 
PRINT "Nachfolger "; IHZ + 1 
PA} 
THEe229: 
WRITE (IH): 
WRITE (Vi; 
WRITE {'Vorgaenger ', PRED (IH}}; 
WRITE (', '); 
WRITELN ("Nachfolger FSUCE IH)): 


WRITE {R, "Runden: '}; 

{In PA ROUND und TRUNC 

nur bis max. 32767. 

In AS INT bis ca. 8388698} 


{AS: RV = -666.666: 
IVZ = INT (RV)}: 
_ PRINT "Real "; RV;: 
PRINT " auf Integer gerundet "; 
IVA; 
PA:} 
RV:= -5666.666; 
IV:= ROUND (RV); 
WRITE {'Real ', RV); 
WRITE (' auf Integer gerundet ', 
IV); 


{TRUNC = Nachkommastellen abhacken 
nicht in AS implementiert} 

WRITELN (' und abgehackt ', 

TRUNG (RV)}; 


WRITE (R, 'Zufallszahl: '}; 


{AS: RV = RND (1): REM ß - 9.999999999 
PRINT RV;: REM Fließkommazahl! 
PRINT " Bereich 18-1ß8: ";: 

PRINT INT (168 = RND (1)) + 1 
PA:} 

IV:= RANDOM; {8 - 32767} 

WRITE (IV); {Integerzahl!} 

WRITE (' Bereich 19-188: '); 

WRITELN (18 + RANDOM MOD {1ßß-10+1))}; 


WRITE (R, 'PWROFTEN: 18 7 Integer: '); 


{AS: PRINT "I 3 ="; 
Iot 3 
PA:} 
WRITELN ("18 1 3= ', 
PWROFTEN (3):6:2) 


END; 
{2.6. Fliesskomma-Mathematik 


+,-, 3 /: 

t (fehlt); 

ABS, SOR, SQRT:. 
sIN, COS, ATAN; 
TAN (fehlt); 
LOG, LN, EXP} 


PROCEDURE FLIESSKOMMAMATHE; 
BEGIN 


WRITELN ('+, -, =, /'", RR: 


{AS: RV = 15.7: RH = 5.7777: 
PRINT RV; SD ARHie 
RV + RE: 
PRINT RY; x RHj 
RV - RH: 
PRINT RV; "> RH; 
RV # RH: 
PRINT RV; " / "; RH;” 
RV / BH 
PA:} 
RV:= 15.7; RH:= 5,7777; 
WRITELN (RV, ' + ', RBH, 
RV + RH:6:2); 
WRITELN (RV, ' - ', RH, 
RV — RH:6:2); u 
WRITELN (RV, ' = ', RH, 
RV & RH:6:2); 
WRITELN (RV, ' / ",RH, 
RV / RH:6:2); 


WRITELN; 
WRITE (X Y= 1", 
EXP (Y*& LN (X)): '); 


{AS: RV = 3.8: RH = 5.8: 
PRINT RV; " # "; RB; 
RV t RH 

PA: X hoch Y fehlt in PA} 


RV:= 3.9; RH:= 
WRITELN (RV, ' 
EXP (RH = LN ( 


hi. ==, 


.B; 
\):6:2): 


5 
t 
RY 

WRITELN ({R, 'Punkt vor Strich, ', 
'Klamner vor alles', R); 


{AS :@PRINT 5 +4 %* 13 
3+r4 %* 132 

PRINT "(3 +4) %* 13) 

(3 +4) 13) 

PA:} 
WRITELN ('! 3 + 13 =, 
+ 13); 

WRITELN ({' + 4) { 13) = ', 
4) #il 13)) 


3 
3 
3 
3 


( 
( 
END; 


PROCEDURE FLIESSREST; 
{Aufsplittung)} 


BEGIN 


WRITELN (R, 'Diverse Funktionen', R); 
{Beachte, dass 

— Befehlswoerter teils abweichen, 

— TAN in PA fehlt, 

—- SOR und LOG in AS fehlen!} 


{AS: PRINT "Von Ausgangszahl ";: 

RV = 5,6789: 

PRINT RV; " —> 

PRINT 

"ABS: "; ABS (RV); 
Quad:"; RV = RV; 
SOR: "; SOR (RV); 
SIN: "; SIN (RV); R$; 
COS: IE COS (RYV): 
ATN: "; ATN (RV); 
TAN: "; TAN {RV}; 
EXP: "; EXP (RV); R$; 
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"Eng Hi LOG IRYV): 
"Log: ": LOG IRV} LOG (19) 
PA:} 
WRITE ("Von Ausgangszahl '); 
Rvi= 5, 6789; 
WRITELN IAV:Tı4, 1 1): 


52 : [RV) 7:2, 
. SQR I(RV]:T:2, 
SORT (RV}:T:2, 
SIN (RV}j:7:2, R, 
‚cos {RV):T:2, 
‚ ATAN (RV):T:2, 
SIN (RV}/COS (RV):7:2, 
EXP (RV):T:2, R, 
LN (KWI:T:Z, 
LOG IRW):T:Z2.) 


m m mi ne u 


{2.7. Verzweigungen und Schleifen 


OR, AND, NOT; 

IE. IHER@ ELSE 
FOR...TO/DOWNTO,..DO...; 
WHILE...DO...; 
REPEAT...UNTIL..,} 


PROGEDURE VERZWEIGUNGEN; 
BEGIN 


WRITELN ('IFf-Vergleiche:', R); 
{Beachte: Im Geg. zu AS in PA: 
Erst 'AND, OR', dann '<, >, =!} 


{AS: IF 1 = 1 AND 1 <> 2 THEN 
PRINT "1 = 1 ja": 
FRINT "2 
REM Else fehlt in AS! 
IF NOT (2 <1lO0OR1>2) 
THEN PRINT "2 < 1 nein" 
Ir "B" > "A" THEN 
PRINT LIEBE > LI 


PA:} 
IF (l=1) AND {l <> 2) THEN 
BEGIN 

WRITE ('L=1ja') 

WRITE (', ') 

END 
ELSE WRITE ('So?')}; 
IF NOT ((2 < 1) OR (1 > 2)) THEN 
WRITE ('2 < 1 nein, ') {kein ';'!} 
ELSE WRITE ('Ach?'); 
IF ('B' > 'A') THEN 
WRITELN { IELUEIE > naAı } 
ELSE WRITELN ('Wie?'): 


WRITELN (R, 'FOR nur mit Integer-Step 1', 


R, 'Fuer Real-Step WHILE + REPEAT', R); 


{AS: FOR RH = 1 TO 5: 
PRINT RH; "x "; RB; "= 
RH & RH; ", "3: NEXT: 
PRINT: 
FOR RH = 5 TO 1 STEP —1: 
FRINT RH; N + IUE RH; N At: 
RH + RH; ", "s: NEXT: 
PRINT 
PA} 

FOR IH:= 1 TO 5 DO 

WRITE (IH, ' = ', IH, '="!, 

IH & IH, ', '); 

WRITELN; 
FOR IH:= 5 DOWNTO 1 DO 
WRITE I IHN ST TEL ei 
EZ 
WRITELN; 


{AS: FOR RH = 9.5 TO 5.8 STEP 9.5: 


PRINT RH; "' ";: NEXT: PRINT 
PA: 2 Versionen statt FOR} 


WRITELN (R, 'Version mit WHILE', 
' prueft vorher', R); 
= 9.5; 
WHILE RH < 5.5 DO 
BEGIN 
WRITE (RH:5:2, ' '); 
RH:= RH + 9.5 
END; 
WRITELN; 
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WRITELN (R, 'Version mit REPEAT', 
' prusft nachher', R); 
= 9.5; 

REPEAT 

WRITE (RH:5:2, ' '); 
RH:= RH + 9.5 

UNTIL RH >= 5.5; 
WRITELN 


END; 
{2.8. String-Verarbeitung 


PRED, SUCG; 

ORD, CHR; 

LENGTH, CONGAT; 

string [x]. FILLCHAR, POS; 
COPY; 

DELETE, INSERT 

Kein VAL und STR$ in PA!} 


PROGEDURE STRINGVERARBEITUNG; 
BEGIN 


Cy:= PRED (Ck}, . 
"Cyı= SUCC (cx), 

'x:= CHR (Ix), I 
'Ix:= ORD tex):"}: 


WRITELN (' 


(AS: PRINT "Var B ist Wr 
CHRS. (ASt t"B") = 1% 
PRINT ". nach B ist. ": 
CHRS (Asc ("B") + rm, Jr 
PRINT NASE Be "4 ASt Bus 
PRINT ", CHR 65: ": CHRS (65) 
PA:} 
WRITE ("Vor B ist ', 
PRED ['E*)]; 


WRITE (', nach B ist ', 


suco ('B'), 1, "}: 
WRITE ("ASC B: ' „ ORD ('B')); 
WRITELN (', CHR 65: ', CHR (65)); 
WRITELN (' Ix:= LENETH (Sx}:'); 


{AS: SV$ = "Apple": PRINT SV$; " hat ";: 
IVZ = LEN (SK$): PRINT "Len: "; IV% 


'Apple'; WRITE (SV, ' hat '); 
LENGTH (SV); WRITELN ('Len: ', IV); 
WRITELN (' 285x:=2CONCAE (31,852...):'); 
{AS: SV$ = SK$ + "-" + SK$ + "-" + SK$: 
PRINT SV$ 
PA:} 
SV:= CONCAT (SK, '-', Sk, '-', SK); 
WRITELN (SV) 


END; 


PROCEDURE STRINGREST; 
{Aufsplittung} 


BEGIN 


{Nachfolgende Befehle nur noch 
umstaendlich in AS simulierbar} 


WRITELN (' Cx:= Sx [POS], ', 
'Sx [POS]:= Cx, ', 
'FILLCHAR (Sx [POS], Ix, Cx}:') 


SV:= '#Peeker*'; SH:= '-###+t###4-': 
WRITE (SV, SH ' u): 
FOR IH:= 2 TO 7 DO 
SH [IH]:= SV [IH]; 
WRITE (She mE): 
CH:= SV [1]; {also '«'} 
SH [1}:= CH; SH [8]:= 
WRITE (SVRLIm I ); 
FILLCHAR (SH [2], 6. '$')}; 
WRITELN (SH); 
WRITELN {' Tx:= EOS (von Sy, ın s&%):') 
'Ich lese Peeker'; 
POS {SK, SV}; 


WRITELN eye Ve So tl. 


7 ist in 5x 2. ira SV, EUITDS 
ab dem ', IH, '.", 
' Zeichen enthalten'); 


WRITELN 
{'Sy:=COPY {von Sx, ab POS, Ix):'); 


‘= 'Lerne zu peeken ohne zu quieken'; 


COPY Sy 1A, 16); 
WRITELN ('"',5H, '" entnommen aus: "!, 
SU a]: 


WRITELN (' DELETE (Sx, ab POS, Ix), ', 


'INSERT (Sx, in Sy, ab POS): ' 


{Sind Prozeduren, keine Funktionen} 


WRITE (SV, ' DELETE: '); 
DELETE (SV, POS {'ohne', SV), 5); 
WRITELN (SV); 


WRITE (SV, ' INSERT: '); 
INSERT ( "und "I, SW, Pos ("zu qU, Sv))}; 
WRITELN (SV) 


END; 


{3.8. Hauptprogramm 


CASE...OF... END; 

BEGIN, END. mit Punkt; 
MEMAVAIL ; 

(AS-Menue nur angedeutet)} 


BEGIN {Programn-Start} 
REPEAT {Menue-Start} 


R:= CHR(13): {Return} 
Del {Taste} 


WRITE (CHR(12)); {Ctri-L} 


WRITELN ("+ PASCAL-KURS] ke! , 


Bildschirm-Ausgabe',, R, 

. Formatierte Ausgabe', R, 

. Wertzuweisung' ‚ R, 
Tastatur-Eingabe', R, 

. Integer-Mathematik', R. 

. Fliesskonna-Mathamatik', RA, 
Verzwelgungen und ten), R, 

. String-Verarbeitung', 
Ende', R); 


WHILE (T < '1'!) OR (T > '9") DO 
READ (KEYBOARD, T); 
WRITELN (CHR{12)}]}; 


Tor {AS: ON T GOSUB ...) 

: BILDSCHIRMAUSGABE: 

; FORMATIERUNG; 

: WERTZUWEISUNG: 

: TASTATUREINGABE; 

: INTEGERMATHE; 
BEGIN 

_ FLIESSKOMMAMATHE: 
FLIESSREST 

END; 

: VERZWEIGUNGEN; 
BEGIN 
STRINGVERARBEITUNG: 
STRINGREST 
END; 

"9"; WRITELN ("Ende,,.') 
END; 


IF T <> '9' THEN 

BEGIN 
WRITE {R, 'Taste druscken ']:; 
READ {CH) 

END; 


UNTIL T = '9'; {Menue-Ende} 


WRITELN ('Freier Speicher: ', 
MEMAVAIL) {AS: FRE (ß)} 


END. {Programn-Ende} 


I: 
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Apple-lle/c-Screendump in 
USCD-Pascal 
von Ulrich Stiehl 


Das folgende kleine Maschinenprogramm 


gibt den 89-Zeichenbildschirm des 


Apple IIe/c auf beliebige Drucker aus. 


Apple-Pascal 1.1 oder 1.2. 


Getestet auf Epson und Imagewriter. 


Nicht für Videxkarte geeignet! 


l. DUMPTEST.TEXT C(ompilleren. 

2. DUMP.TEXT Alssemblieren. 

3. L(inker aufrufen. 
Bei Host File? DUMPTEST 
Bei Lib Fils? DUMP 
Bei erneut Host File? Return 
Bei erneut Lib File? Return 
Bei Output File? DUMPTEST 
eingeben 

. Drucker einschalten und 

E(xecute DUMPTEST 


DUMPTEST.TEXT 


PROGRAM DUMPTEST; 
VAR I: INTEGER; 
{so definieren in Host-Progranmn:} 
PROCEDURE DUMP; EXTERNAL; 
BEGIN 
FOR I:= 1 TO 24 DO 
BEGIN 
WRITE ('1234567899'); 


WRITE {"abodefghijklmnopgrstuvwayz'); 
WRITE { 'ABCDEFGHIJKLMNOPQRSTUVWAYZ'); 


WRITELN; 

END; h 

{so aufrufen in Host-Programm:} 
DUMP; 

END, 


DUMP.TEXT 


; Pascal-Screendunmp/us/1,8.85 
; Druckt 88-2/Z-Bildschirn 

;‚ IIc/IIe über PWRITE. 

; Von Pascal-Hostprogramm mit 
; einfachen "DUMP;" aufrufen, 


.PROC DUMP 
; Zeile/Spalte änderbar 
FRSTCOL .EQU 1. :Werto 1-88 
LASTCOL .EQU 88. ;Werte 1-89 


FRSTLINE .EQU ‚Werts 1-24 
LASTLINE .EQU : ;Werte 1-24 


BASL .EQU B8828 ;ZP retten! 
BASCALC .EQU ÖFBCl ;ROM! 

PWRITE .EQU ÖFF65 ;LC! 

PAGEL .EQU #C054 ;unten 

PAGE2 .EQU ACB55 ;oben 

BANKRD .EQU ÖC#11 ;BPL:BANKl 
ROMRD .EQU BCB12 ;BPL:ROM 
BANKI .EQU SCQ8eB ;R/W BANKL 
BANK2 .EQU 8C083 :R/W BANKZ 
RDROM .EQU Öcsı ;R/W ROM 
SLOTON .EQU SCQd6 ;Slots on 
COLSBON .EQU ACQdD ;Column 89 on 
COLSBST .EQU PCOB1 ;Column 8ß store 


JMP START 
ZEILE .BYTE 
SPALTE .BYTE ® s 
BANKSTAT .BYTE 9 :BPL:BANK1 
ROMSTAT .BYTE ® ;BPL: ROM 
E Switches speichern 
START LDA BANKRD 

STA BANKSTAT 

LDA ROMRD 

STA ROMSTAT 

l. Zeile 

LDA +FRSTLINE 

STA ZEILE 

DEC ZEILE 

l. Spalte 

LDA +FRSTCOL 

STA SPALTE 

DEC SPALTE 

LDA ZEILE ‚nächste 

JSR ADR 

LDA SPALTE 

LSR A 

BCC OBEN 

STA PAGEL 

BCS CHAR 

STA PAGE2 

Zeichen ausgeben 

TAY 

LDA {BASL),Y 

AND #7F 

CMP +29 erez 

BCS NOCTRL ‚nein 

ADC #49 ;normalisieren 


NOCTRL 5STA PAGEL ;stets unten 


JSR PRRITE 
INC SPALTE 
LDA SPALTE 
CMP #LASTCOL 
BCC NEXT 


CR/LF ausgeben 

LDA #®D 

JSR PWRITE 

LDA #BA 

JSR FWRITE 

INC ZEILE 

LDA ZEILE 

CMP #+LASTLINE 

BCC LOOP 

Switches normalisisren 
LDA ROMSTAT 

BPL EXIT 

LDA BANK2 

LDA BANKZ 

LDA BANKSTAT 

BMI EXIT 

LDA BANKI 

LDA BANKI 

RTS 

Bascalc 

LDA RDROM 

LDA RDROM 

LDA ZEILE 

JSR BASCALC 

LDA BANKZ 

LDA BANK2 

STA 5SLOTON ‚wichtig 
STA COL8BON ;wegen Monitor- 
STA COL8SßST ;Flackern! 
RTS 

‚END 


4 





DB-MEISTER. 


Adreß- und Schemabriefprogramm 


Der DB-Meister ist ein in Assembler ge- 

schriebenes, ungewöhnlich schnelles, un- 

komplizieries und zugleich „narrensicheres" 

Adreß-, Datei- und Schemabriefprogramm. 

Technische Daten 
Recordlänge bis zu 230 Zeichen 
560 bis 1000 Records pro Datendiskette 
Maximal 25 Feider pro Record 
Suche nach 3 Indexfeldern 

— Ausdruck der Dateien als Etiketten, Listen 
und Schemabriefe (mit Felder- und Tasta- 
tureinschüben an beliebigen Stellen des 
Formbriefes) 

— normal kopierbare Programmdiskette, un- 
terteilt in Hauptprogramme und diverse 
Hilfsprogramme 

— einsatzfähig auf Apple Ile und Ilc mit 
2 Drives (1 Drive ebenfalls möglich) 


Gesamtpreis 290,- (2 Disketten + ge- 
drucktes Manual) 
U. Stiehl 


c/o Dr. A. Hüthig Verlag 
Postfach 10 28 69 - 6900 Heidelberg 
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Preisliste kostenlos 
Katalog DM 2,- 
in Briefm. 


Unser Dezember-Angebot: 


Profimax Ile, APPLE Ile kompatibel, 
IBM-Look nur 1398.— 


Profimax Ill, APPLE II+ kompatibel, 
2 Prozessoren IBM-Look nur 1098,— 


Chinon-Laufwerk 051A nur 


Video-Digitalisierer incl. Software nur 


STAR sg-10, original, mit Serien-Nr. nur 


Centronics-Interface, grafikfähig nur 118.- 


D.O.S Computersysteme 


der Partner für Schule, Hochschule, Forschung, Fertigung 


Am Kühnbach 42, 7170 Schwäb. Hall 11 
Tel. 0791/51736 


Ihr Computer-Fachhändler seit 1979 


Unsere Apple - Hits 


IyR Preise gültig solange Vorrat reicht 


10 Disketten Durolife 
Schalt-Netzteil 
Disk-Controler-Karte 

80 Zeichen-Karte m. Softswitch 
Disk-Laufwerk 

Disk-Laufwerk Chinon 
DRUCKER FÜR IHREN APPLE 
Epson FX-85 

Panasonic KX-P 1091 

Riteman F+ 


Riteman Inforunner 
Typenraddrucker 


MONITORE 

9”, grün, 18 MHZ 
Philips TP-200, grün 
Pal-Farbmonitor 
FISCHER-TECHNIK 


Set Computing 
Interface für Apple 
Netzteil 


Bestellungen bitte nur schriftlich an: 

Abacomp GmbH, Kransberger Weg 24, 6 Frankfurt 50. 
Mindestbestellwert: 50,- DM 

Tel. Auskunft: Mo-Sa 8-9.30 Uhr unter (069) 7003 08 
Ladenöffnung: Mo-Fr 10-12 und 14-18 Uhr in Ffm. 90, 
Ginnheimer Landstraße 1 





J Besser klingt’s mit 


2 Mockingboard, : 


dem 6-stimmigen Tonsynthesizer für Apple Il und //e. 
Ca. 50 Programme (darunter Oldies wie "Lady Tut" und 





Berlin ım Apple Il+ 354 x 288 Rıldpunkte. 


YIDEO-100 


ITIZER ZUM APPLE IL 


299; DH 


384x288 Bildpunkte 
corder und Kamera 
ezeit 20 msec 
ung auf HIRES-Seite 


ou 


te Software EuPa Pi der Pit bis zu 500,000 
3” 


ten, Graus e Hires, Kurzfi 


ng etc auf Anfraye. 


modisk gege von 10 DM oder 
fo gratis. .„ oder beim Fac 


Ing.Büro M.Fri Neue _Str,.1i3 1000 Berlin 37 
Tele . 6 52 


oS5o / 801 5 


Apple und IBM 
kompatible Gomputer 


16K, Z80, Diskcontroler je. . . . . 75- 
80 Zeichenkarte mit Softswitch 

2 Zeichensätze . . . 2 .2....7149,- 
Motherboard 48K ohne Firmware . .419,- 
Erphi-controler mit Autopatch . . .300,- 
Siemenslaufwerk F 122 . .. .. ....515- 
TEAC FD-55B 2 x 40 Track . . . .448,- 
TEAC FD-55F 2 x 80 Track . . . .475,- 
FD4 Spezialcontroler für Laufwerke 
mit bis zu2x 80 Track . . . . ..130- 
Drucker Star SG 10 . . . . 940,— 
Monochrome Monitore . . . . ab 375,- 
Farbmonitore . . 2. 20202... ab 998,- 
Tastaturen für IBM und Apple . ab 330,- 
Versand nur per Nachnahme oder Vorkasse. 


Weiteres Zubehör für Apple und IBM gegen 
frankierten Rückumschlag. 

Preissenkung: 

128K Karte (Saturn kompatibel) . 375,— 
Preissenkung 4164-200 ns 
Mindestabnahme 20 Stck... . . . . 3,90 
Zusatzkarten und Motherboard ausnahmslos 
deutsche Fertigung mit ausgesuchten Bauteilen. 


Ulf Mohwinkel Electronic 


Berliner Straße 73 Pf: 250 166 
5090 Leverkusen Fettehenne 
Telefon 02 14/937 81 





Anzeigen- 
schluß 


Neuheiten wie "Adventure Construction Set") nutzen die fü r 


Tonausgabe über diese Erweiterungs-Steckkarte. 


Für DM 368,-- wird Ihr APPLE musikalisch; für weitere 
DM 238,-- lernt er durch einen Sprachchip das Sprechen. 
Beides zusammen ist schon für DM 658,-- zu bekommen. 


Walliser & Co., Mönchseestraße 99, 7100 Heilbronn 


Tel. 07131/60048 


Ausgabe 
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par. Printer Leerkarte (Hercules comp.) 
ae EL TT  GRI ET} 
Parallel Printer Leerkarte 
512K-RAM Leerkarte 
Multifunktions Leerkarte (Printer, Ser, Game Uhr gepuffert) £! 
Disk-Muliti /O Leerkarte, (f. 3x360 K-Drive, 2xRS 232 1xpar. Printer 
Int., Game/Joystick Port, Real Time Clock/Kalender gepuff.) 
384 K-Multifunktions Leerkarte, (1xpar. Printer Int., Gamej/Joystiek 
EEE EEG Erelt he} 


Mainboard XT-256 w.o. jedoch 256 K- vollbest. und geprüft 


tee XT-640 f. 16 bit CPU, OK (bis 640 K-on board aufr.) 

Eu EıS AR 

Mainborard XT-640 w.o. jedoch 640 K- vollbest. und geprüft 

64 hip-Aufrüstsatz (9 Stück) einzeln geprüft! 

EEE N TED RERSUTERKELF LE lejarı. 

Disk-Controller gepr. (f. 2x360 KB Drives) 

EL ET EUN W N} 

Monochrome Karte geprüft 

Monochrome Graph. + par. Printer Karte gepr. (Hercules comp.) 

Color RGB + Video Graphikkarte gepr. 

Parallel Printer-Karte gepr. o. Kabel (Extra Kabel =49,-) 

512K-RAM-Karte gepr. (OKB) 169, 
itifunktionskarte, RS 232, par. Printer, Interf. Game/Joystick Port, 

CET TER et GET TT a  E TNN ENTZETETA 335, 

Multifunktionskarte (Par. + Ser. + Uhr gepuffert) gepr. 289,— 

Disk Multi 1/O Karte (f. 2x360 K-Drive, 2xRS 232, 1xpar. Printer Int., 

Game/Joystick Port, Real Time Clock/Kalender gepuff.) 

Profi-Funktionstastatur dt. oder ASCII + 15er Block 

135W-Netzteil mit eingebautem Ventilator, Kurzschlußfest 

360KB-Diskdrive Slimline ohne Gehäuse 


ES NET EFT BF El) 
IBM-look-like Met.-Gehäuse +Profi-Fkt. Tast.+135 W-Netzt. gepr. 
XT-256, w.o.+ Disk Contr.+360KBDrive+Color RGB+Video 
Graphic-Karte 

XT-256, w.o. jedoch statt Color mit Monochrome Karte 

XT-256, w.o. jedoch mit Monochrome-Graphic-Printer-Karte 
AT-COMPATIBLE COMPUTER 

FESTPLA 


IMB-PC-Systemeinheit + Laufwerk 
IMB deutsche DIN-Tastatur 





IBM-Bildschirm Color 1.698.-- 


PC 10-Commodore dt. Tast. 
GENIE16 C (256K-RAM bis 640K auf M-boaard) 2 x 360K-Drive, 





a ET I a ee: LS LK) lachen 
6 slots, - incl. dt. Tastatur und MS-DOS 


APPLE-BUS COMPUTERPLATINEN + PERIPHERIE 


Motherboard Il 48K leer, durchkont. mit Lötstopplack 59,-- 
Motherboard Il w.o. jedoch 64 K leer 78,-- 
M-board Il 48K, gesockelt, vollbest. + gepr. 349,-- 
Motherboard Il 64K gesockelt, vollbest.+gepr 408,-- 
M-board Il 64K + Z80 CPU, gesockelt, v. best. + gepr. 438,-- 
M-board Ile 64K vollbestückt + gepr. 449,-- 
APOLLO Il Kunststoff-Leergehäuse 85,-- 
APOLLO Il Gehäuse incl. Funkt.-Tast. 217,-- 
Superstarkes Netzteil — Kurzschlußfest 115,-- 


Leerplatine: 16K-RAM, Z80/CPU-, Controller DOS 3.3, 
Parallel-Druckerkarte, Ser. Int. V24, 802/24Z-Karte 


PAL-Modulatorkarte, je 18,95 
Entwicklungslochraster-Leerplatine durchkontaktiert 27,-- 
16K-Speicher-Karte geprüft 79,-- 
APPLE orig. 16K-Language Karte gepr. 125,-- 
Z-80 CPU-Karte geprüft 74,-- 
Controller DOS 3.3-Karte geprüft 73,-- 
Auto-Controller DOS 3.2/3.3-Karte gepr. 119,-- 
Erphi AFDC 2 Controller + Autopatch Softw. + Handbuch 288,-- 
Parallel-Drucker-Karte geprüft 74,-- 
Par.-Drucker-Grappler comp. Leerplatine 27,-- 
Par.-Drucker Karte-Grappler comp. geprüft 169,-- 
8bit par. Grappler-Int. + 64K-Buffer + Kabel gepr 445,-- 
Seriell-Interface-Karte V24 geprüft 99,-- 
Super-Seriell Leerkarte 34,-— 
Super-Seriell-Interface Karte gepr. 169,-- 
80-Zeichen/24-Zeilen-Karte geprüft 119,-- 
802/24Z-Karte + Softswitch-Schalter Leerplatine 24,-- 
802/24Z-Karte + Softswitch-Schalter geprüft 138,-- 
802/24Z-Softmitch Karte gepr. für Ile 49,-- 
802/242 +64K-Ram +Softsw. Leerkarte f. Ile 27,-- 
802/24Z +64K-Ram +Softsw.-Karte best.-+gepr. f. Ile 79,-- 
IEEE-488 Int. Karte gepr 345,-- 
PAL-Modulator/Color-Karte geprüft 99,-- 
PAL-RGB-Color Karte gepr 149,-- 
128K-Speicher-Leerkarte 29,-- 
128K-Speicher-Leerkarte + Software + Manual 99,-- 
128K-Speicher-Karte + Software geprüft +Manual 299,-- 
256K-Speicher Leerkarte 34,-— 
256K-Speicher Leerkarte-+Software-+Manual 109,-- 
256K-Speicher-Karte + Software geprüft+Manual 455,-- 
Maus incl. Software 179,-- 
EPROM-Burner (2708/16/32/64) geprüft 119,-- 
6522-VIA Karte geprüft 135,-- 
Clock Karte geprüft 97,-- 
Speech Karte geprüft 56,-- 
Musik Karte geprüft 107,- 
Wild Karte geprüft 95,-- 
AD/DA-8Bit Karte gepr 375,-- 
Accelerator Karte gepr 775,-- 
Modem Euronorm-Karte gepr. + Software + Man 397,-- 
UHF/TV-Modulator universell 27,50 
Lüfter anclipsbar (220 V) 95.-- 
Dataphon s21d Akustikkoppler-FTZ mit RS 232/V24 Anschl 275. -- 


APOLLO//(48K) + UHF-Mod. + Gr/Kl vollbest. + gepr. + F--T. 
APOLLO//(48K) + Disk II F+ Contr. + 12”-Monitor 

APOLLO//A (48K) + Gr/Kl + 15er-Tastatur vollbest. + gepr. + F.-T. 
APOLLO//A (48K) + Disk II F+ Contr. + 12”-Mon. 

APOLLO// ASKF (48K) vollbest. + gepr. Sep. Keyboard + Gr/KI + 
15er-Block mit Funkt.-Tasten im „IBM-look like” Gehäuse 
oo) I HEERES TER 

APOLLO// ASKF (48K) w.o, hedicg 2 x Disk II F + Contr. 

Apollo II ASFK (48K) w.0.+2xDisk II-F+Contr.+12” Mon. 

Apollo lie (64K) PAL vollbest. und geprüft 

Apollo lie (128K) +802/24Z-Karte geprüft 

Apollo Ile (64K) +Disk II F+12” Monitor 

Aufpreis f.o. Systeme von 48K zu 64K 

Aufpreis von 48K zu 64K+Z80 CPU 


Appel lle 128K-+802Z/24Z Karte+Softw. 

APPLE-DuoDisk, 2 x 143 KB + Controller orig. 
APPLE-Disk//Laufwerk + Contr. + Kab. DOS 3.3 + ProDOS orig. 
APPLE-Disk//(2. Laufwerk) orig. 

Epson-Duodisk Il F-Slimline 2x143 KB mit Geh 

Disk//+Contr. + Kabel DOS 3.3 (Siemens) im Geh. 

Disk//(2. Laufwerk, Siemens) im Geh 

Disk//F + Contr. + Kab. DOS 3.3 (1/2 Höhe) im Geh. 

Disk//F (2. Laufwerk, 1/2 Höhe) i. Geh. 

Erphi DuoDisk 1,2 MByte incl. Netzteil + Contr. 


APPLESOFT + Turorial + Reference Manual engl. 
APPLE-DOS 3.3 Manual engl. 

u ER KH12 

APPLE ProDOS HB + Disk orig. 

APPLE-Pascal Reference + Operating Manual engl. 
APPLE-Pascal USCD 1.1. Disks + Manuals orig. 
APPLE-Pascal Reference Hb. dt. 

APPLE-Pascal Language Hb. dt. 

APPLE-Forth Manual engl. 

APPLE-Fortran Manual engl. 

CP/M-Softcard Vol. 1+ Il, Manual engl. 

APPLE // Pascal-Handbuch deutsch (te-wi) 

APPLE //-Anwenderhandbuch deutsch (te-wi) 
6502-Programmier-Handbuch deutsch 
6502-Anwendungen Handbuch deutsch (Rod. Zaks) 





APPLE//c (128K) dt. Tastatur 2.495,-- 
Z80 Karte gepr. f. APPLE//c + RAM-Disk-Software + Hb. 489,-- 
Macintosh System (128K) 6.745,-- 
Macintosh System (512K) 7.495,-- 
Macintosh Umrüstung von 128K auf 512K 678,-— 
SANYO MSX-Computer MPL 64 dt. Tastatur 685,— 
Epson LX 80 F/T, 8 Bit/par. 100Z/S. mit der Super N.L.Q. Qualität 975,-- 
EPSON GX 80+, 939,-- 
EPSON RX 100+, 8bit/parallel 1.279,-- 
EPSON FX 85F/T+, 8bit/parallel 160 Z/S. NLQ + IBM Komp. 1.299,-- 
EPSON FX 105+, 8bit/parallel 15” sonst w.o. 1.719,-- 


EPSON LQ 1500+, 8bit/parallel 3.269,-- 
EPSON Traktoraufsatz für FX 80 + FX 85 

APPLE/EPSON-Drucker Graphic-Interface + Kabel 

MX 80/82, FX/RX 80 Spezialfarbband-Kassette 

BROTHER-Typenraddr. HR 15XL 8bit/par. neuestes Mod. 

Seikosha SP 800 NLP (A=EPSON-, i=1BM-Comp. 

STAR SG10, NLQ- + IBM-Zeichensatz, 8bit/par. 





Zenith ZVM 123 gr. 12” oder Zenith ZVM or. 12” 15 MHz 

Zenith ZVM 124 gr. 12” 22 MHz IBM-Comp. 

SANYO DM 2212 12” orange 15 MHz 

SANYO 9112 Monochromer Monitor 12”, gr. IMB-Comp. 

Monochromer 12”-Monitor entspiegelt gr. o. or. 22 MHz 

Disketten in Box + Aufkleber I. Wahl, 10er Pack/100er Pack./ Stückprel 

EA rc Tu 17623 22 Ki ih) ei 
SCOTCH MAGNE- 


TICS 

1X, SS/SD KA CH) 2,86/2;76 
1D, SS/DD } ‚99 4,88/ 4,58 4,27/ 4,07 3,96/3,76 2,75/2,65 
2D, DS/DD } ‚69 6,38/ 5,88 5,87/ 5,67 4,76/4,46 3,85/3,65 
1D/96TPi h ‚9 7,18/ 6,68 

LARA: Re AT 

13,89/12,89 14,87/13,87 

4,49/ 4,39 


TERROR ACR:TG Das 
4,791 4,59 8,58/ 8,28 Pe 
TECK EVENT ZEN sind 
OEL 


10,99/ 9,99 10,08/ 9,88 7,87/ 7,57 
14,99/14,29 15,98/15,18 


3M-Scotch 5'/" Flüssig-Reinigungsset (2 Disk.) zweiseitig 48,95 

BASF 5'/” Reinigungsdiskette einseitig 48,50 
«" Disketten-Archivbox für 10 Disks (1 St./10 St.) 4,75/43,50 
«” Disketten-Archivbox für 15 Disks 3M 19,95 

54" Disk-Karteikasten Kunststoff (ca. 80 Disk) 

5'4” Disk-Karteikasten Kunststoff (ca. 80 Disk) Rauchglas 

5'/” Disk-K.K.Rauchglas, abschließb. (f. ca. 80-100 Disks) 

2000 Bl. Tabpapier (24 cm x 12” einf.) weiß oder grün/weiß perf. 

4000 Et.-Aufkl. doppelr. (107 x 36 mm auf 240 x 12” perf. Trägerp.) 

16000 Etiketten-Aufkleber w.o 

4000 Etik.-Aufkl. einreih. (107 x 36 mm auf 125 x 12” perf. Träg.) 


Bei Vorauszahlung frei Empfangsstation unversichert in der BRD, ausgenom- 

men Papier und Etiketten, sonst N.N. + V.S. ab DM 30,-—— Preise incl. MwSt. 

Öffnungszeiten: Mo, Di, Do, Fr v. 10-18 h, Miu. Sa vv. 10-14 h, la Sa v. 10-18 h. 

Telef. Best.: Mo, Di, Do, Fr von 10-19 h, Mi u. Sa wie Öffnungszeiten. 

GEWÄHRLEISTUNG: 6 Monate, auf alle bei uns gekauften Geräte, durch 
WE: 


unsere eigene Service-We: 
REPARATUREN an Apple + Compatible Geräte + Zubehör führt unser 


Spezialistenteam garantiert zuverlässig + besonders kostengünstig aus. 
Sprechen sie mit uns. Kostenvorschlag auf Wunsch! 





(3 r at I S beim Kauf eines Mockingboards: 
eine Diskette mit Weihnachtsliedern 


Telex: 0772642 aaa-d 


R, electronic a 
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Habsburgerstraße 134 
7800 FREIBURG, Tel. (07 61) 276864 
Bauelemente - Bausätze - uP's 
Meßgeräte - Zubehör - Fachliteratur 
Fachgeschäft für Elektronik + Mikrocomputer 














1.4. Ausführung 


NEWSTT ($D7D2) - führt den nächsten A/S- 
Befehl via  GOCMD aus (wenn nicht Ctri-C 
gedrückt wurde) und arbeitet als Interpreter- 
Hauptschleife. Nach Ausführung eines Befehls 
wird immer wieder NEWSTT aufgerufen, bis das 
Programmende erreicht ist, um dann nach 
 RESTART zu springen. Diese Routine arbei- 
tet auch im Direktmodus und gibt im Trace- 
Modus die Zeilennummern aus. 

Vorher: TXTPTR = Zeiger auf letztes Zeichen 
vor neu auszuführendem A/S-Befenhl. 


GOCMD ($D828) - führt den dem Token (siehe 
Tokentabelle) entsprechenden A/S-Befehl 
aus. Liegt kein Token vor, wird versucht, eine 
„LET“-Anweisung auszuführen, ist er Null, er- 
folgt ein RTS. Entspricht der Token einem Funk- 
tionsaufruf (z.B. „SIN" oder „MID$"), erfolgt 
ein „SYNTAX ERROR“. Die entsprechenden 
Parameter müssen im Programmtext folgen 
(z.B. Zeilennummer nach „GOTO"). 

Vorher: siehe } NEWSTT. 

Aufruf: Register durch JSR T CHRGET setzen. 


GOLINE ($D935) — setzt via T GOTO die Pro- 
grammzeiger und springt nach ? NEWSTT. 
Vorher: TXTPTR = Zeiger auf Zeilenangabe. 


1.5. Sonstiges 


FNDLIN ($D61A) — sucht die angegebene Zeile 
im Programmtext ab dem Programmanfang. 
Vorher: LINNUM ($0050, $0051) = zu suchen- 
de Zeilennummer. 

Nachher: C = 1, wenn Zeile existiert; C = 0, 
wenn Zeile nicht gefunden wurde; LOWTR 
($009B, $009C) = Zeilenanfang der gefunde- 
nen Zeile oder der nächsten, falls nicht ge- 
funden. 


FNDLIN1 ($D61E) - sucht die angegebene Zei- 
le im Programmtext ab der vorgegebenen 
Sielle. 

Vorher: LINNUM ($0050, $0051) = zu suchen- 
de Zeilennummer; LOWTR ($009B, $009C) = 
Zeiger auf Programmtext (Anfang des Suchbe- 
reichs). 

Nachher: siehe ? FNDLIN. 


MAINLST ($D6CC) - listet den angegebenen 
Bereich und springt nach T NEWSTT. Ist das 
Bereichsende Zeile 0, wird bis zum Programm- 
ende gelistet. Ein Abbruch durch Ctrl-C ist mög- 
lich, wobei dann zu ?FRESTART gesprungen 
wird. Der Ilc und neue Ile gibt vor jeder Zeile ein 
Leerzeichen aus. 

Vorher: LOWTR ($009B, $009C) = Zeiger auf 
erste zu listende Zeile; LINNUM ($0050, 
60051) = Zeilennummer der letzten zu listen- 
den Zeile. 


NEWVAR ($E09C) - legt eine neue {nicht di- 
mensionierte) Variable in der Variablenliste an 
und trägt den Wert O ein (5mal). Dazu werden 
alle dimensionierten Variablen um 7 Bytes nach 
oben verschoben. 

Vorher: VARNAM ($0081-$0082) = Variablen- 
name (2 Buchstaben). 

Nachher: siehe T PTRGET. 
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2. Programmverwaltung 


2.1. Initialisierung 
2.1.1. Global 


COLDST ($F128) — führt einen A/S-Kaltstart 
aus ($E003-Vektor verweist hierher). Zunächst 
wird die CHRGET-Routine und der Random- 
Startwert (aufgrund eines Bugs ein Byte zuwe- 
nig) in die Zero-Page übertragen. Nach dem 
Setzen einiger Variablen und Pointer wird dann 
die Größe des Systems bestimmt. Danach er- 
folgt ein Sprung zu T RESTART. 


RESTART ($D43C) - führt einen Warmstart 
(Soft-Entry) des A/S-Systems durch. Dabei 
wird „ONERR“ gelöscht, Direktmodus einge- 
stellt und eine Eingabezeile geholt, um diese 
abzuarbeiten. Diese Stelle wird stets dann an- 
gesprungen, wenn der Interpreter ein neues 
Kommando erwartet (Promptzeichen „U“ oder 


1”). 


SCRTCH ($D64B) - führt „NEW" aus (beinhal- 
tet TCLEARC, FRESTORE, TSTKINI und 
TSlRIEn). 

Vorher: C=0. 

Nachher: TXTPTR = Zeiger auf Programman- 
fang - 1. 


SETPTRS ($D665) - ruft T STXTPT auf und 
geht in  CLEARC über. 


CLEARC ($D66C) - führt „CLEAR“ aus (bein- 
haltet * RESTORE und + STKINI). 


STKINI ($D683) — initialisiert den Stack und 
verhindert „CONT“. 
Nachher: S = $F8. 


2.1.2. Einzelne Zeiger 


STXTPT ($D697) - 
Programmanfang - 1. 
Nachher: TXTPTR = Zeiger auf Programman- 
fang - 1. 


setzt TXTPTR auf 


SETDA ($D853) — trägt den übergebenen Zei- 
ger in den DATA-Zeiger ein. 

Vorher: A = DATA-Zeiger, LSB; Y = DATA- 
Zeiger, MSB. 

Nachher: DATPTR ($007D, $007E) = überge- 
bener Zeiger. 


VARTIO ($D8F0) — setzt die Programmlänge 
und das LOCK-Byte für READ ($FEFD) und 
WRITE ($FECD). Diese Routine entfällt beim Ilc. 
Nachher: A1 ($003C, $003D) = $0050 (Be- 
reichsanfang); A2 ($003E, $003F) = $0052 
(Bereichsende). 


PROGIO ($D901) — setzt die Programmstart- 
und -endadresse für READ und WRITE (siehe 
T VARTIO). Diese Routine entfällt beim Ilc. 
Nachher: Ai ($003C, $003D) = TXTTAB 
(60067, $0068); A2 ($003E, $003F) = VARTAB 
(50069, $006A). 


2.2. Programmänderung 


NXTLIN ($D45C) — übernimmt die Zeile im 
Eingabepufffer in den Programmtext und führt 
„CLEAR“ aus. Falls die Eingabezeile nur aus 


der Zeilennummer besteht, wird diese Zeile ge- 
löscht. Danach erfolgt ein Sprung zu TRE- 
START. 

Vorher: TXTPTR = IN - 1 ($01FF); IN ($0200- 
$02FF) = Eingabezeile im ASCII-Format (Bit 7 
= 0) mit $00 als Endmarker. 

Aufruf: Register durch JSR ? CHRGET setzen. 


LINKSET ($D4F2) — setzt die Link-Felder im 
A/S-Text neu. (Wird z.B. von DOS 3.3 nach 
Laden eines A/S-Programms aufgerufen). Führt 
„CLEAR“ und „RESTORE“ aus und springt zu 
T RESTART. 

Vorher: TXTTAB ($0067, $0068) = Programm- 
anfang; VARTAB ($0069, $006A) = Programm- 
ende + 1. 


3. Ein/Ausgabe 


3.1. Eingabe 


INCHR ($D553) - liest ein Zeichen via RDKEY 
($FDOC) ein und löscht Bit 7. 

Nachher: A = eingelesenes Zeichen (ASCIl mit 
Bt7=0). 


INLINE ($D52C) — übernimmt eine Eingabezei- 
le via GETLINE ($FD6A) ohne Prompt-Zeichen, 
löscht alle Bit 7 und setzt $00 als Endmarker an 
Stelle von Return. Akzeptiert nur 240 Zeichen 
inkl. Return. 

Nachher: IN ($0200-$02FF) = abgelegte Einga- 
bezeile; X = $FF, Y = $01. 


INLINE1 ($D52E) — wie 1 INLINE, das Prompt- 
Zeichen kann jedoch gewählt werden. 

Vorher: X = Prompt-Zeichen (ASCIl mit Bit 7 = 
1). 

Nachher: siehe T INLINE. 


GDBUFS ($D539) — löscht in der Eingabezeile 
alle Bit 7 und setzt $00 als Endmarker an Stelle 
von Return. 

Vorher: IN ($0200-$02FF) = Eingabezeile; X = 
Länge der Eingabezeile - 1. 

Nachher: siehe T INLINE. 


3.2. Ausgabe 
3.2.1. Einzelne Zeichen 


OUTDO ($DB5C) - gibt das angegebene Zei- 
chen via COUT ($FDED) aus und berücksichtigt 
dabei die eigene Ausgabemaske (NORMAL/ 
FLASH/INVERSE). Danach wird eine Warte- 
schleife eingelegt (für „SPEED*). 

Vorher: A = auszugebendes Zeichen (Bit 7 
egal); SPEEDZ ($00Fi) = Länge der Warte- 
schleife. 

Nachher: A = ausgegebenes Zeichen mit Bit 7 
=0;X=;Y=. 

CRDO ($DAFB) - gibt ein Carriage Return via 
FOUTDO aus. 


OUTSPC ($DB57) — gibt ein Leerzeichen 
(Space = $20) via FT OUTDO aus. 


OUTQST ($DB5A) — gibt ein Fragezeichen via 
TOUTDO aus. 


3.2.2. Zahlen 


LINPRT. ($ED24) — gibt die angegebene Zahl 
(2-Byte-Integer) via T STROUT aus. 

Vorher: X = auszugebende Zahl, LSB; A = 
auszugebende Zahl, MSB. 
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PRNTFAC ($ED2E) — gibt die Zahl in FAC aus. 
Vorher: FAC ($009D-$00A2) = auszugebende 
Zahl. 


3.2.3. Zeichenkeitten 


STROUT ($DB3A) — gibt den angegebenen 
String aus, der durch T STRLIT ausgewertet 
und durch T FREFAC wieder freigegeben wird. 
Der String muß mit $00 oder Hochkomma (Bit 7 
= 0) enden. Die Ausgabe erfolgt via 
+ STRPRT1. 


Vorher: A = Zeiger auf String, LSB; Y = Zeiger 
auf String, MSB. 
Nachher: siehe T STRLIT, 


STRPRTI ($DB41) — gibt den angegebenen 
String via F OUTDO aus. 

Vorher: INDEX ($005E, $005F) = Zeiger auf 
String; X = String-Länge. 

Nachher: X = 0; Y = Siring-Länge. 


4. String-Verwaltung 


STRCMP ($DF7D) - vergleicht zwei Strings mit 
der durch CMPFLG angegebenen Operation 
und trägt das Ergebnis (1 oder O für wahr oder 
falsch) in den Hauptfließkomma-Akku ein. Bei- 
de Strings werden freigegeben (T FREFAC, 
t FRETMP),. 


Vorher: FAC+3 ($00A0, $00A1) = Zeiger auf 1. 
Deskriptor; ARG+3 ($00A8, $00A9) = Zeiger 
auf 2. Deskriptor; CMPFLG ($0016) = Flag für 
Vergleichsoperation (1: >, 2: =, 3: >=, 4:<,5: 
<>,6: <=). 

Nachher: FAC ($009D-$00A2) = 1 oder 0; 
VALTYP ($0011) = 0. 


STRLIT ($E3E7) — bestimmt die Länge eines 
Strings anhand seines Endmarkers ($00 oder 
X-Registers). Befindet sich der String-Anfang in 
der Zero-Page oder dem Eingabepuffer ($0200- 
$02FF), wird er unter den String-Bereich ge- 
schrieben (unterhalb von FRETOP). Danach 
wird der Deskriptor in den Deskriptor-Stack ko- 
piert, falls dort noch Platz ist (ansonsten „FOR- 
MULA TOO COMPLEX"). 

Vorher: A = Zeiger auf Siring, LSB; Y = Zeiger 
auf String, MSB; X = Endmarker; TEMPPT 
($0052) = Stackpointer im Deskriptor-Stack. 
Nachher: TEMPPT = TEMPPT +3 =% 
TEMPST ($0055-$005D) = neuer Deskriptor; 
FRETOP ($006F, $0070) = FRETOP - Länge; 
VALTYP ($0011) = $FF (String); STRNG2 
($00AD, $00AE) = Zeiger auf erstes Zeichen 
hinter String (falls Endmarker = Hochkomma, 
wird dieses ebenfalls übergangen). 


STRSPA ($E3DD) — legt einen neuen String- 
Deskriptor an und reserviert den entsprechen- 
den Platz unter den vorhandenen Strings. Falls 
selbst nach einer Garbage-Collection kein Platz 
mehr vorhanden ist, erfolgt die Meldung „OUT 
OF MEMORY. 

Vorher: A = Länge des neu einzurichtenden 
Strings. 

Nachher: A =; FAC ($009D-$009F) = String- 
Deskriptor; X = Sitring-Adresse, LSB; Y = 
String-Adresse, MSB. 
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GETSPA ($E452) — schafft Platz für neuen 
String, d.n. FRETOP und FRESPC werden um 
die Siring-Länge nach unten versetzt. Dabei 
wird ggf. eine Garbage-Collection ausgeführt. 
Reicht der Speicherplatz trotz G/C nicht aus, 
erfolgt „OUT OF MEMORY". 

Vorher: A = String-Länge. 

Nachher: FRETOP ($006F, $0070) = FRESPC 
(80071, $0072) = FRETOP-A; A =. 


FRETMP {($E604) — gibt den bezeichneten 
String frei. Wurde der String bereits im String- 
Bereich abgelegt, wird er dort wieder gelöscht. 
Deutet der letzte Eintrag im Deskriptor-Stack 
auf diesen String, wird dieser Deskriptor eben- 
falls vom Stack genommen ( T FRETMS). 
Vorher: A = Zeiger auf Deskriptor, LSB; Y = 
Zeiger auf Deskriptor MSB. 

Nachher: X = Zeiger auf String, LSB; Y = 
Zeiger auf String, MSB; A = String-Länge. 


FRESTR ($E5SFD) — gibt den letzten String 
mittels T FREFAGC frei, prüft jedoch vorher, ob 
der letzte Ausdruck tatsächlich ein String war. 
Falls nicht, erfolgt ? TMMERR. 

Vorher: VALTYP ($0011) = $FF (String); anson- 
sten siehe ? FREFAC. 

Nachher: siehe T FRETMP. 


FREFAC ($E600) — gibt den bezeichneten 
String mittels T FRETMP frei. 

Vorher: FAC+3 ($00A0, $00A1) = Zeiger auf 
string-Deskriptor. 

Nachher: siehe T FRETMP. 


FRETMS ($E635) — enifernt den obersten Ein- 
trag des Deskriptor-Stacks, falls es sich um den 
angegebenen String handelt. 

Vorher: LASTPT ($0052, $0053) = Zeiger auf 
letzten Deskriptor; A = Zeiger auf derzeitigen 
Deskriptor, LSB; Y = Zeiger auf derzeitigen 
Deskriptor, MSB. 

Nachher: Z = 1, falls Deskriptor entfernt wurde. 


GARBAG ($E484) - führt eine Garbage-Col- 
lection aus. Dabei werden alle nicht mehr refe- 
rierten Strings (sog. String-Leichen) entfernt 
und die verbleibenden Strings, d.h. alle durch 
die Variablenliste und den temporären Deskrip- 
tor-Stack bezeichneten Zeichenketten, nach 
oben verschoben. 

Vorher: VARLEN ($008F) = 3. 

Nachher: FRETOP ($006F, $0070) = Zeiger auf 
Start der Strings. 


5. Mathematik 


5,1. Integer-Mathematik 


MULT ($E2AD) - führt eine 16-Bit-Multiplika- 
tion durch. Wird das Ergebnis größer als 16 Bits, 
erfolgt die Meldung „OUT OF MEMORY”. 
Vorher: STRNG2 ($00AD, $00AE) = Multiplika- 
tor; LOWTR ($009B, $009C) = Zeiger auf Multi- 
plikand, durch Y indiziert ((LOWTR),Y); Y = In- 
dex auf Multiplikand, MSB. 

Nachher: X = Ergebnis, LSB; Y = A = Ergeb- 
nis, MSB, 


MULT1 ($E2B8) — führt 16-Bit-Multiplikation 
aus wie f MULT. 
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Vorher: STRNG2 ($00AD, $00AE) = Multiplika- 
tor; RESULT+2 ($0064, $0065) = Multiplikant. 
Nachher: siehe T MULT. 


5.2. Fiießkomma-Mathematik 
5.2.1. Einfache Operationen 


ZEROFAC ($E84E) - setzt FAC zu null (nur 
den Exponenten und das Vorzeichen). 
Nachher: FAC ($009D, $00A2) = 0. 


FALSE ($DF5D) - trägt O in den Hauptfließ- 
komma-Akku ein. 
Nachher: FAC ($009D) = 0. 


TRUE ($DF60) - trägt 1 in den Hauptfließkom- 
ma-Akku ein. 
Nachher: FAC ($009D-$00A2) = 1. 


RND ($EFAE) - bildet eine Zufallszahl, abhän- 
gig von FAC (entspricht „RND“). 

Vorher: FAC ($009D-$00A2) = 0, für alte Zu- 
fallszahl; FAC > 0 für neue Zufallszahl; FAC < 
0 für definierte Zufallsfolge; RNDSEED ($00C9- 
$00CD) = Startwert. 

Nachher: FAC = neue Zufallszahl im Intervall 
[0, 1[. 


SGN ($EB90) - trägt das Vorzeichen von FAC 
in FAC ein. 

Nachher: FAC ($009D-$00A2) = -1, wenn FAC 
< 0; FAC = 0, wenn FAC = 0; FAC = 1, wenn 
FAC>0O. 


INT ($EC23) — schneidet die Nachkommastel- 
len ab (entspricht „INT"). 
Nachher: FAC ($009D-$00A2) = INT (FAC). 


ABS ($EBAF) - bildet den Betrag von FAC. 
Nachher: FAC ($009D-$00A2) = ABS (FAC). 


5.2.2. Funktionen 


SQR {$EE8D) — berechnet die Quadratwurzel 
von FAC. (Ausführung über SOR (X) =X 10,5.) 
Nachher: FAC ($009D-$00A2) = SOR (FAC). 


EXP ($EF09) — exponiert FAC zur Basis e = 
2,71828. (Ausführung über Potenzreihe.) 
Nachher: FAC ($009D-$00A2) = EXP (FAC). 


LOG ($E941) — berechnet den natürlichen Lo- 
gariihmus von FAC und legt das Ergebnis wie- 
der in FAC ab. Ist das Argument <= 0, erfolgt 
t ILQERR. (Ausführung mittels Potenzreihe.) 
Nachher: FAC ($009D-$00A2) = LOG (FAC). 


SIN ($EFF1) — berechnet den Sinus von FAC. 
(Ausführung über Potenzreihe.) 
Nachher: FAC ($009D-$00A2) = SIN (FAC) . 


COS ($EFEA) - berechnet den Cosinus von 
FAC. (Ausführung über COS (X) = SIN (X + Pi/ 
2).) 

Nachher: FAC ($009D-$00A2) = COS {FAC). 


TAN ($F03A) — berechnet den Tangens von 
FAC. (Ausführung über TAN (X) = SIN (X) / 
COS (X).) 

Nachher: FAC ($009D-$00A2) = TAN (FAC). 


ATN ($FO9E) — berechnet den Arcustangens 
von FAC. (Ausführung über Potenzreihe; ist X 
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> 1, so wird folgende Formel angewandt: ATN 
(X) = Pi/2 - ATN (1 /X),) 
Nachher: FAC ($009D-$00A2) = ATN (FAC). 


ODDSER ($EF5C) - berechnet eine ungerade 
Potenzreihe (ax X +bxX173+c#X15 + 
..). Dabei müssen die Reihenkoeffizienten (in 
umgekehrter Reihenfolge) als Tabelle abgelegt 
sein, Das erste Byte gibt die Anzahl - 1 wieder, 
darauf folgen die Koeffizienten als 5-Byte-Fließ- 
kommazahl. Zunächst wird das Argument X 
auadriert, dann die Routine ? SERIES (Ein- 
sprung) aufgerufen und das Ergebnis noch ein- 
mal mit dem Argument multipliziert (X»*(a+b 
*X1T2+c0*XT1T4..) 

Vorher: siehe T SERIES. 

Nachher: siehe T SERIES. 


SERIES ($EF72) - berechnet eine Potenzreihe 
(a+bxX+cxX?72 +...) nach dem Horner- 
Schema: a+Xx(b+Xx(c+Xx(d..))). 
Die Koeffizienten-Tabele muß wie unter 
} ODDSER beschrieben abgelegt sein. 

Vorher: FAC ($009D-$00A2) = Argument X; A 
= Zeiger auf Koeffizienten-Tabelle, LSB; Y = 
Zeiger auf Koeffizienten-Tabelle, MSB. 
Nachher: FAC = Ergebnis der Potenzreihe. 


5.2.3. Verknüpfungen 


FPWRT ($EE97) - exponiert ARG um FAC und 
legt das Ergebnis in FAC ab. (Ausführung Über 
XTY=EXP (LOG) «Y).) 

Vorher: ARG ($00A5-$00A9) = Basis; FAC 
($009D-$00A2) = Exponent; Z = 1, wenn FAC 
0. 

Nachher: FAC = ARG T FAC. 


FADD ($E7BE) - überträgt die angegebene 
(gepackte) Zahl nach ARG und geht in 
7 FADDT über. 

Vorher: A = Zeiger auf Zahl, LSB; Y = Zeiger 
auf Zahl, MSB. 

Nachher: siehe | FADDT. 


FADDT ($E7C1) - addiert FAC und ARG und 
legt das Ergebnis in FAC ab. 

Vorher: FAC ($009D-$00A2) = 1. Summand; 
ARG ($00A5-$00A9) = 2. Summand; A = FAC 
($009D). 

Nachher: FAC = FAC + ARG. 


FADDH {$E7A0) — addiert 0,5 zum Hauptfließ- 
komma-Akku. 
Nachher: FAC ($009D-$00A2) = FAC + 0,5. 


FSUB ($E7A7) — überträgt die angegebene 
(gepackte) Zahl nach ARG und geht in 
TFSUBTFüber. 

Vorher: A = Zeiger auf Zahl, LSB; Y = Zeiger 
auf Zahl, MSB. 

Nachher: siehe T FSUBT. 


FSUBT ($E7AA) — subirahiert ARG von FAC 
und legt das Ergebnis in FAC ab. 

Vorher: FAC ($009D-$00A2) = Subtrahend; 
ARG ($00A5-$00A9) = Minuend. 

Nachher: FAC = ARG - FAC. 


FMULT ($E97F) — überträgt die angegebene 
(gepackte) Zahl nach ARG und geht in 
T FMULTT über. 
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Vorher: A = Zeiger auf Zahl, LSB; Y = Zeiger 
auf Zahl, MSB. 
Nachher: siehe ? FMULTT. 


FMULTT ($E982) — multipliziert FAC und ARG 
und legt das Ergebnis in FAC ab. 

Vorher: FAC ($009D-$00A2) = Multiplikand; 
ARG ($00A5-$00A9) = Multiplikator; A = FAC 
($009D). 

Nachher: FAC = FAC x» ARG. 


MULT10 ($EA39) — multipliziert FAC mit 10. 
Nachher: FAC ($009D-$00A2) = FAC # 10. 


FDIV ($EA66) — überträgt die angegebene (ge- 
packte) Zahl nach ARG und geht in ? FDIVT 
über. 

Vorher: A = Zeiger auf Zahl, LSB; Y = Zeiger 
auf Zahl, MSB. 

Nachher: siehe T FDIVT. 


FDIVT ($EA69) - dividiert ARG durch FAC und 
legt das Ergebnis in FAC ab. Ist der Divisor = 0, 
erfolgt F DBZERR. 

Vorher: ARG ($00A5-$00A9) = Dividend; FAC 
($009D-$00A2) = Divisor; A = FAC. 

Nachher: FAC = ARG / FAC. 


DIV10 ($EA55) — dividiert FAC durch 10. 
Nachher: FAC ($009D-$00A2) = FAC / 10. 


OR ($DFAF) - verknüpft den Hauptfließkomma- 
Akku mit dem zweiten Fließkomma-Akku durch 
logisches ODER. Ist eines der beiden Argu- 
mente ungleich 0; wird FAC zu 1. 

Vorher: FAC ($009D) = 1. Operand; ARU 
($00A5) = 2. Operand. 

Nachher: FAC ($009D-$00A2) = 1 oder 0. 


AND ($DF55) — verknüpft FAC und ARG durch 
logisches UND, Sind beide Argumente ungleich 
0, wird FAC zu 1. 

Vorher: siehe FOR. 

Nachher: siehe T OR. 


5.2.4. Sonstiges 


FCOMP ($EBB2) - vergleicht FAC (ungepackt) 
mit der angegebenen Zahl (gepackt) im Spei- 
cher. 

Vorher: A = Zeiger auf zu vergleichende Zahl, 
LSB; Y = Zeiger auf zu vergleichende Zahl, 
MSB. 

Nachher: A= $FF, wenn FAC < Zahl; A = $00, 
wenn FAC = Zahl; A = $01, wenn FAC > Zahl; 
Z = 1, wenn FAC = Zahl. 


SIGN ($EB82) — überprüft das Vorzeichen von 
FAC. 

Nachher: A= $FF, wenn FAC ($00A2) < 0; A = 
$00, wenn FAC ($009D) = 0; A = $01, wenn 
FAC ($00A2) > 0: Z = 1, wenn FAÄC = 0; 


SIGNIF ($E82E) — normiert FAC, d.h. FAC wird 
so angepaßt, daß Bit 7 von FAC+1 (erstes 
Mantisse-Byte) eine 1 enthält (i.allg. Links- 
Shift). Die unnormierte Form kann bei aritnmeti- 
schen Operationen auftreten, vermindert jedoch 
die Genauigkeit. Daher wird FAC nach einigen 
Operationen unter Einbeziehung des 5. Mantis- 
se-Bytes neu normiert. 


RNDB ($EB72) - rundet FAC, d.h. es wird unter 
Einbeziehung des 5. Mantisse-Bytes eine Man- 
tissenbreite von 32 Bits erzeugt. 


ADDACC ($ECD5) — addiert die Integer-Zahl 
im A-Register zu FAC. 

Vorher: A= Summand (0-255). 

Nachher: FAC ($009D-$00A2) = FAC+ A, 


FRE1 ($E2E5) - legt die Anzahl der noch freien 
Speicherplätze in FAC als Fließkommazahl ab. 
Vorher wird eine Garbage-Collection durchge- 
führt (siehe T GARBAG). 

Vorher: VARLEN ($008F) = 3. 

Nachher: FAC ($009D-$00A2) = Anzahl freier 
Speicherstellen. 


6. Konvertieren und Übertragen 


6.1. Konvertierung 


FIN ($EC4A) — wandelt den durch den Text- 
pointer angegebenen String in eine Fließkom- 
mazahl um und legt das Ergebnis in FAC ab. 
Vorher: TXTPTR = Zeiger auf erstes Zeichen - | 
der ASCII-Folge mit Bit 7 =. 

Aufruf: Register durch JSR T CHRGET setzen. 
Nachher: FAC ($009D-$00A2) = ausgewertete 
Zahl. 


FOUT ($ED36) — wandelt die Zahl in FAC in 
einen String um (Bit 7 = 0) und legt diesen im 
Stack (ab $0100) ab, 

Vorher: FAC ($009D-$00A2) = umzuwandeln- 
de Zahl. 

Nachher: STACK ($0100-$010A) = umgewan- 
delte Zahl als String; A = Zeiger auf Stack, LSB 
($00); Y = Zeiger auf Stack, MSB ($0%). 


VAL ($E707) -— wandelt den angegebenen 
String in eine Zahl in FAC um. 

Vorher: sehe f GETSTR. 

Nachher: FAC ($009D-$00A2) = umgewandel- 
te Zahl. 


GIVAYF ($E2F2) — wandelt eine vorzeichenbe- 
haftete 15-Bit-Integer-Zahl in eine Fließkomma- 
zahl um. 

Vorher: A = zu übertragende Zahl, LSB; Y = zu 
übertragende Zahl, MSB (Bit 7 = Vorzeichen); 
C=1. 

Nachher: FAC ($009D-$00A2) = Fließkomma- 
zahl; VALTYP ($0011) = 0. 


SNGFLT ($E301) — wandelt die Zahl im Y- 
Register in eine Fließkommazahl um. 

Vorher: Y = zu übertragende Zahl. 

Nachher: siehe T GIVAYF. 


QINT ($EBF2) — wandelt FAC in eine 31-Bit- 
Integer-Zahl mit Vorzeichen um (negative Zah- 
ten im Zweierkomplement). Es wird nicht Üüber- 
prüft, ob FAC in diesem Bereich liegt. 
Nachher: FAC ($009E-$00A1) = Integer-Zahl; 
Bit 7 von FAC ($009E) = Vorzeichen. 


CONINT {($E6FB) -— wandelt den Hauptfließ- 
komma-Akku in eine Integer-Zahl (0-255) um. 
Vorher: FAC ($009D-$00A2) = umzuwandeln- 
de Zahl. 

Nachher: siehe ? GETBYT. 
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Bitte veröffentlichen Sie in der nächsterreichbaren Ausgabe nachstehenden 
Text unter folgender Rubrik: 


L_] suche Hardware L] suche Software L] Tausch [] Verschiedenes 
UL] biete Hardware UL] biete Software [] Kontakte [1 Chiffre 


Bitte jeweils 32 Buchstaben pro Zeile-einschließlich Satzzeichen und Wort- 
zwischenräume. Bitte Absender nicht vergessen. 
Chiffregebühr DM 6,—- zuzügl. MwSt. 


zn ecken 24 


Zu der in »peeker«, Heft ‚Ssete_______ erschienenen 
L] Anzeige [| Produktbesprechung 





rse 






Gelegenheitsanzeigen 









Sie können unter dieser 
Rubrik zu einem besonders 
günstigen Preis 


@ ihre Hardware und 
Software verkaufen 


@ Ihre Hard- und Software | 
Sucher BOOT 
@ Kontakte knüpfen und 


vieles mehr 














Musteranzeige privat 


1 Druckzeile A 32 Buch- 
staben nur DM 5,— 
zuzügl. ges. MwSt. 





über _ 


bitte ich um detaillierte Information. 
Ich wünsche U] Prospekt, Datenblatt DL] Preisliste [| schriftliches Angebot I] tel. Rückruf 


gebe ich neben- 
stehende Bestellung 
unter Anerkennung 
Ihrer in der Anzeige 
genannten Liefer- und 
| Zahlungsbedingungen 
auf. 


Beispiel: 





nur DM 17,10 inkl. MwSt. 


a Produkt-Karte 









Unterschrift (für Jugendliche unter 18 Jahren der Erziehungsberechtigte) 


349999 PEEKER 94 


Musteranzeige gewerblich 


Die einspaltige Millimeter- 

zeile (42 mm breit) kostet 

9,50 zuzügl. ges. MwSt. 
Schreiben Sie uns, wenn Sie Fragen, Ergänzungen oder Anregungen zu 


Beispiel: Aufsätzen in »peeker« haben: 


Neu im Angebot: Professionelle, 
separate Tastatur für Apple Il 


plus 16 Funktionstasten und sepa- 
| ratem Ziffernblock. 
| Fa. Keyboard & Co. 





nur DM 137,94 inkl. MwSt. 


am Info -Karte 




















Yararıa Ders ANTWORTKARTE 
Beruf 
Strafe 


Wohnort 


peeker-Börse 
Anzeigen-Service 


Dr. Alfred Hüthig Verlag 
Postfach 10 28 69 
6900 Heidelberg 1 


PLZ 

- Bitte veröffentlichen Sie den um- 

a stehenden Text von Zeilen 
DM in der nächsterreich- 

ren Ausgabe von »peeker« 
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‚Datum Unterschrift 
Karte bitte vollständig ausfüllen 


Vorname, Name 


POSTKARTE 














Firmä 


Straße 


PLZ/Ort 


POSTKARTE 


peeker 
Redaktion 


Postfach 10 28 69 
6900 Heidelberg 1 











Produkt- 
Karte 


Wünschen Sie 

weitere Informationen 
zu einem der im Heft 
vorgestellten 

Produkte ? 








Nichts einfacher als 

das. 

Produkt-Karte aus- 

füllen, mit 60-Pfennig 

frankieren und | 

absenden. 
| 
| 


Vorher aber nicht 
vergessen: 

kreuzen Sie an, 
welchen Informations- 
wunsch Sie haben. 


Damit erleichtern Sie 
dem Hersteller 
eine gezielte Beant- 
wortung Ihrer Anfrage. 


Zum Schluß tragen 
Sie auf der Rück- 
seite die genaue 
Anschrift des | 
Inserenten/Herstellers 
und Ihre vollständige 
Firmenanschrift ein. 
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GETADR ($E752) — wandelt den Hauptfließ- 
komma-Akku in eine 2-Byte-Integer-Zahl in 
LINNUM um. 

Vorher: FAC ($009D-$00A2) = umzuwandeln- 
de Zahl. 

Nachher: Y = LINNUM ($0050) = umgewan- 
delte Zahl, LSB; A = LINNUM+1 ($0051) = 
umgewandelte Zahl, MSB. 


PARSE ($D56C) — wandelt die BASIC-Schlüs- 
selwörter in der Eingabezeile in Tokens (siehe 
Tokentabelle) um und legt die Eingabezeile 
neu ab. Der Ilc und neue Ile akzeptiert hier auch 
Kleinbuchstaben. 

Vorher: IN ($0200-$02FF) = zu bearbeitende 
Zeile mit Endmarker $00; X = Zeiger auf erstes 
Zeichen - 1; Y = $04. 

Nachher: |N = umgewandelte Zeile. 


6.2. Übertragung 
6.2.1. Allgemein 


BLTU1 ($D39A) — verschiebt den Bereich von 
LOWTR bis HIGHTR nach HIGHDS (Ende des 
Zielbereichs). Der Transfer erfolgt von oben 
nach unten (Left-Move), daher ist diese Routine 
nicht geeignet zur Verschiebung nach unten bei 
Überschneidung von Ziel- und Quellbereich. 
Vorher: LOWTR ($009B, $009C) = Quellbe- 
reich, Anfang; HIGHTR ($0096, $0097) = 
Quellbereich, Ende; HIGHDS ($0094, $0095) = 
Zielbereich, Ende. 


6.2.2. Deskriptoren und Strings 


STRCPY ($DA9A) — überträgt den angegebe- 
nen Deskriptor (3 Bytes) in die durch FORPNT 
bezeichnete Variable. 

Vorher: VPNT ($00A0, $00A1) = Zeiger auf 
Deskriptor; FORPNT ($0085, $0086) = Zeiger 
auf Deskriptorfeld der Variablen. 


PUTNEW ($E42A) — überträgt den Deskriptor 
in FAC in den Deskriptor-Stack, falls dort noch 
Platz vorhanden ist. Ansonsten wird T FTCERR 
ausgeführt. 

Vorher: FAC ($009D-$009F) = Deskriptor; 
TEMPPT ($0052) = Stackpointer im Deskriptor- 
Stack. 

Nachher: TEMPPT = TEMPPT + 3 = X; 
TEMPST ($0055-$005D) = neuer Deskriptor; 
VALTYP ($0011) = $FF (String). 


STRINI ($E3D5) — überträgt FAC+3 in den 


Deskriptor-Pointer, ansonsten siehe 
T STRSPA. 

Vorher: A = Länge des neu einzurichtenden 
Strings. 


Nachher: DSCPTR ($008C, $008D) = FAC+3 
($00AD, $00A1); ansonsten siehe } STRSPA. 


MOVINS ($E5D4) — überträgt den angegebe- 
nen String mittels * MOVSTR. 

Vorher: STRING! ($00AB-$00AD) = String- 
Deskriptor; FRESPC ($0071, $0072) = Zeiger 
auf Zielbereich, 

Nachher: siehe ? MOVSTR. 


MOVSTR ($E5E2) — überträgt den durch die 
Register angegebenen String und setz FRESPC 
um die String-Länge nach oben. 

Vorher: X = Zeiger auf Siring, LSB; Y = Zeiger 
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auf String, MSB; A = String-Länge; FRESPC 
($0071, $0072) = Zeiger auf Zielbereich. 
Nachher: FRESPC = FRESPC + String-Länge. 


6.2.3. FlieBkommazahlen 


CONUPK ($E9E3) - überträgt die angegebene 
(gepackte) Zahl nach ARG. Diese liegt dann als 
ungepackte Zahl vor, d.h. das Vorzeichen wird 
in einem eigenen Byte abgelegt, während in der 
gepackten Form das Vorzeichen im ersten Man- 
tisse-Byte enthalten ist. Darüber hinaus werden 
die Vorzeichen von FAC und ARG zu einem 
Gemeinschaftsvorzeichen verknüpft. 

Vorher: A = Zeiger auf zu übertragende Zahl, 
LSB; Y = Zeiger auf zu übertragende Zahl, 
MSB. 

Nachher: ARG ($00A5-$00A9) = ungepackte 
Zahl; SGNCPR ($00AB) = Gemeinschaftsvor- 
zeichen; A = FAC ($009D); Z = 1, wenn FAC = 
0. 


MOVFA ($EB53) — überträgt ARG nach FAC 
und richtet ein 5. Mantisse-Byte ein. 

Nachher: FAC ($009D-$00A2) = ARG ($00A5- 
$00A9). 


MOVAF ($EB63) — überträgt den gerundeten 
Wert von FAC nach ÄRG. 

Nachher: ARG ($00A5-$00A9) = FAC ($009D- 
$00A2). 


MOVMF ($EB2B) - überträgt den gerundeten 
Wert (5. Mantisse-Byte) von FAC in den ange- 
gebenen Speicherbereich (5 Bytes), 

Vorher: FAC ($009D-$00A2) = zu übertragen- 
de Zahl; X = Zeiger auf Speicherbereich, LSB; 
Y = Zeiger auf Speicherbereich, MSB. 
Nachher: Z= 1, wenn FAC =(., 


MOVFM ($EAF9) — überträgt die angegebene 
(gepackte) Zahl nach FACE (siehe F CONUPK). 
Dabei wird in FAC noch ein 5, Mantisse-Byte 
angelegt, das die Genauigkeit bei der Auswer- 
tung von Polynomen erhöht. 

Vorher: A = Zeiger auf Zahl, LSB; Y = Zeiger 
auf Zahl, MSB. 

Nachher: FAC ($009D-$00A2) = übertragene 
Zahl; EXTRAFAG ($00AC) = 0; Z = 1, wenn 
Zahl = 0. 


MOV2F {$EBIE) - überträgt FAC via 
T MOVMF in den 3. Hilfsfließkomma-Akku. 
Nachher: FAC3 ($0098-$0090) = 
($009D-$00A2). 


FAC 


MOVIF ($EB21) - überträgt FAC via  MOVMF 
in den 2. Hilfsfließkomma-Akku. 

Nachher: FAC2 ($0093-$0097) = FAC ($009D- 
$00A2). 


VARL ($DED5) - überträgt den Wert der fol- 
genden Variablen in den Hauptfließkomma-Ak- 
ku, falls es sich um eine numerische Variable 
handelt. 

Vorher: siehe T PTRGET. 

Nachher: siehe T PTRGET. 


VARL1 ($DEE9) - überträgt die durch VPNT 
bezeichnete 16-Bit-Zahi als FP-Zahl in den 
Hauptfließkomma-Akku. 
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Vorher: VPNT ($00A0, $00A1) = Zeiger auf 
Zahl. 
Nachher: FAC ($009D-$00A2) = Fließkomma- 
zahl. 


7. Grafik 


7.1. Lores-Grafik 


PLOTFNS ($F1EC) - liest zwei Ausdrücke, die 
durch ein Komma getrennt sind, ein und wertet 
sie als Integer-Zahlen zwischen O und 47 aus. 
Stimmt der Bereich nicht überein, erfolgt T IL- 
QERR. Beim I|Ic werden hier Werte zwischen O 
und 79 zugelassen. 

Vorher: TXTPTR = Zeiger auf 1. Zeichen des 1. 
Parameters. 

Nachher: X = H2 ($002C) = V2 ($002D) = 
zweiter Parameter; FIRST ($00F0) = 1. Para- 
meter. 


LINCOOR ($F209) - liest zwei Ausdrücke via 
T PLOTFNS ein, gefolgt von „AT“ (ansonsten 
T SYNERR) und einem weiteren Ausdruck im 
Bereich 0-47, Ist der erste Parameter größer als 
der zweite, werden sie vertauscht. Beim Ilc 
werden hier Werte zwischen O und 79 zuge- 
lassen. 

Vorher: siehe T PLOTFNS. 

Nachher: FIRST ($00F0) = kleinerer der beiden 
ersten Parameter; H2 ($002C) = V2 ($002D) = 
größerer der beiden ersten Parameter; X = 3. 
Parameter. 


PLOT ($F225) — zeichnet einen Block auf den 
Lores-Bildschirm mittels der Monitor-Routine 
PLOT ($F800). 


Vorher: COLOR ($003C) = Farbmaske; 
TXTPTR = Zeiger auf 1. Zeichen der Koordina- 
tenangabe. 


HLIN ($F232) — zeichnet eine horizontale Linie 
auf den Lores-Bildschirm mittels der Monitor- 
Routine HLINE ($F819). 

Vorher: siehe } PLOT. 


VLIN ($F241) — zeichnet eine vertikale Linie auf 
den Lores-Bildschirm mittels der Monitor-Routi- 
ne VLINE ($F828). 

Vorher: siehe PLOT. 


7.2. Hires-Grafik 


HFNS ($F6B9) - liest die HGR-Koordinaten ein 
und prüft deren Wertebereich (0-279 bzw. O- 
191). Stimmen die Werte nicht, erfolgt TIL- 
QERR. 

Vorher: TXTPTR = Zeiger auf 1, Zeichen der X- 
Koordinate. 

Nachher: X = X-Koordinate, LSB; Y = X-Koor- 
dinate, MSB; A = Y-Koordinate. 


SHPFNS ($F72D) - liest die Shape-Nummer 
und die (durch „AT" getrennten) Koordinaten 
via THFNS ein und setzt die internen Cursor- 
Koordinaten entsprechend. Wird kein „AT“ an- 
getroffen, erfolgt T SYNERR. 

Vorher: TXTPTR = Zeiger auf 1. Zeichen der 
Shape-Nummer; SHPTAB ($00E8, $00E9) = 
Zeiger auf Shape-Tabelle. 

Nachher: SHAPE ($001A, $001B) = Zeiger auf 
angegebenes Shape; A = ROT-Wert. 
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HPOS {$F411) — berechnet die internen HGR- 
Cursor-Werte. Diese umfassen die Basisadres- 
se der Bildschirmzeile, den Spaltenindex des 
Zeilen-Bytes und den Bit-Index des Spalten- 
Bits (Bit-Maske). 

Vorher: A = Y-Koordinate; X = X-Koordinate, 
LSB; Y = X-Koordinate, MSB; HPAG ($00E6) 
= Seite; HCOLORO ($00E4) = Basis-Farb- 
maske. 

Nachher: GBAS ($0026, $0027) = Basisadres- 
se; HGRINDX ($00E65) = Spaltenindex; 
HMASK ($0030) = Bit-Maske; HCOLOR 
($001C) = aktuelle Farbmaske. 


HFIND ($F5CB) — berechnet aus den internen 
Cursor-Daten die ursprünglichen X- und Y- 
Koordinaten. (Diese Routine wird vom A/S-In- 
terpreter nicht benutzt.) 

Vorher: siehe T DECRX. 

Nachher: HGRX ($00E0, $00E1) = X-Koordina- 
te; HGRY ($00E2) = Y-Koordinate. 


HGR2 ($F3D8) - führt „HGR2“ aus und geht 
dabei in ? HELR Über. 


HGR ($F3E2) - führt „HGR" aus und geht 
dabei in * HCLR über. 


HCLR ($F3F2) — löscht den angegebenen 
HGR-Bildschirm zu schwarz. 

Vorher: HPAG ($00E6) = HGR-Seite ($20 = 
Seite 1, $40 = Seite 2). 

Nachher: HCOLOR ($001C) = aktuelle Farb- 
maske = $00. 


BKGND ($F3F6) - färbt den Bildschirm mit der 
angegebenen Farbe ein. 

Vorher: HPAG ($00E6) = Seite; HCOLOR 
($001C) = aktuelle Farbmaske. 


HCOLOR1 ($F6EC) - legt die der übergebenen 
Faronummer entsprechende Basis-Farbmaske 
in HCOLORO ab. Ist die Farbnummer zu groß, 
erfolgt ? ILQERR. 

Vorher: X = Farbnummer (0-7). 

Nachher: HCOLORO ($00E4) = entsprechende 
Basis-Farbmaske. 


HPLOT ($F457) - ruft ? HPOS auf und setzt 
einen Punkt in der angegebenen Farbe. 
Vorher: siehe T HPOS. 

Nachher: siehe ? HPOS. 


HGLIN ($F53A) - zeichnet eine Verbindungsli- 
nie zwischen zwei Punkten in der aktuellen 
Farbe. 

Vorher: HGRX ($00E0, $00E1) = X-Koordinate 
des 1. Punktes; HGRY ($00E2) = Y-Koordinate 
des 1. Punktes; A = X-Koordinate, LSB des 2. 
Punktes; X = X-Koordinate, MSB des 2. Punk- 
tes; Y = Y-Koordinate des 2. Punktes; interne 
Cursor-Daten (siehe T DECRX) beziehen sich 
auf 1. Punkt. 

Nachher: HGRX/HGRY = Koordinaten des 2. 
Punktes; interne Cursor-Daten beziehen sich 
nun auf 2. Punkt. 


DRAW ($F601) — zeichnet ein Shape in ange- 
gebener Farbe, Größe und Richtung. Die An- 
fangskoordinaten sind durch die internen Cur- 
sor-Daten bestimmt (siehe T DECRX). 
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Vorher: X = Zeiger auf Shape, LSB; Y = Zeiger 
auf Shape, MSB; A = ROT-Wert; SCALE 
($00E7) = SCALE-Wert. 


DRAW1 ($F605) — zeichnet wie T DRAW ein 
Shape. 

Vorher: SHAPE ($001A, $001B) = Zeiger auf 
Shape; ansonsten wie T DRAW. 


XDRAW ($F65D) - zeichnet ein Shape in der 
angegebenen Farbe, Größe und Richtung durch 
Invertierung aller Bit-Punkte mit den auf dem 
Bildschirm vorhandenen. Die Anfangskoordina- 
ten sind durch die internen Cursor-Daten be- 
stimmt (siehe T DECRX). 

Vorher: siehe } DRAW. 


XDRAW1 ($F661) - zeichnet wie T XDRAW ein 
Shape. 
Vorher: siehe T DRAW. 


DECRX ($F467) — setzt die internen Cursor- 
Daten um einen Punkt nach links. War der Punkt 
am linken Bildschirmrand, erfolgt ein Wrap 
around zum rechten Rand in derselben Zeile. 

Vorher: GBAS ($0026, $0027) = Basisadresse; 
Y = Spaltenindex; HMASK ($0030) = Bit-Mas- 
ke; HCOLOR ($001C) = aktuelle Farbmaske. 


INCRX ($F48A) setzt die internen Cursor- 
Daten um einen Punkt nach rechts. War der 
Punkt am rechten Bildschirmrand (279), erfolgt 
ein Wrap around zum linken Rand in derselben 
Zeile. 

Vorher: siehe ? DECRX. 


DECRY ($F4D5) - setzt die internen Oursor- 
Daten um einen Punkt nach oben. War der 
Punkt am oberen Bildschirmrand, erfolgt ein 
Wrap around zum unteren Rand in derselben 
Spalte. 

Vorher: siehe T DECRX. 


INCRY ($F504) - setzt die internen Cursor- 
Daten um einen Punkt nach unten. War der 
Punkt am unteren Bildschirmrand (191), erfolgt 
ein Wrap around zum oberen Rand in derselben 
Spalte. 

Vorher: siehe T DECRX. 


INVMASK ($F47E) — invertiert die aktuelle 
Farbmaske (wenn es sich nicht um weiß oder 
schwarz handelt) für den Übergang von gerader 
zu ungerader Spaltenzahl oder umgekehrt. 
Nachher: HCOLOR ($001C) = invertierte Farb- 
maske. 


8. Prüf- und Fehlerroutinen 


8.1. Prüfen 


CHKSTK ($D3D6) — überprüft, ob auf dem 
Stack noch genügend Platz für Rücksprung- 
adressen vorhanden ist (mit 18 Adressen Re- 
serve), ansonsten erfolgt „OUT OF MEMORY“. 
Vorher: A = Anzahl der erwünschten Ädressen 
= Bytes /2. 


REASON ($D3E3) — überprüft, ob die überge- 
bene Adresse unterhalb von FRETOP ($006F, 
$0070) liegt (führt ggf. Garbage-Collection aus). 
Falls nicht, erfolgt „OUT OF MEMORY“. 


Vorher: A = Adresse, LSB; Y = Adresse, MSB. 
Nachher A=:Y =. 


CHKNUM ($DD6A) — überprüft, ob der letzte 
Ausdruck numerisch war, ansonsten erfolgt ein 
Sprung zu ? TMMERR. 

Vorher: VALTYP ($0011) = Flag für Ausdrucks- 
typ ($00 = Zahl, $FF = String). 


CHKSTR ($DD6C) - überprüft, ob der letzte 
Ausdruck ein String war, ansonsten wird 
+* TMMERR durchgeführt. 

Vorher: siehe f CHKNUM. 


ISLETC ($E07D) - überprüft, ob ein Großbuch- 
stabe vorliegt. 

Vorher: A = zu prüfendes Zeichen (Bit7 =). 
Nachher: A =; C = 1 bei Buchstabe; GC = 0, 
wenn nicht. 


ISCNTC ($D858) — überprüft, ob Ctrl-C ge- 
drückt wurde, und führt dementsprechend 
T HANDLERR (falls „ONERR” angegeben wur- 
de) oder T STOP aus. Ansonsten erfolgt ein 
RTS. 

Nachher: ERRNUM ($00DE) = $FF, falls Cirl-C 
gedrückt wurde. 


SYNCHR ($DECO) - überprüft die Übereinstim- 
mung zwischen angegebenem Zeichen und 
dem, auf das der Textpointer zeigt. Bei Gleich- 
heit erfolgt ein Rücksprung über T CHRGET, 
ansonsten die Meldung „SYNTAX“, 

Vorher: TXTPTR = Zeiger auf zu prüfendes 
Zeichen; A = erwartetes Zeichen. 

Nachher: siehe f CHRGET. 


CHKCOM ($DEBE) - überprüft via  SYNCHR, 
ob ein Komma folgt. 


CHKOPN ($DEBB) - überprüft via T SYNCHR, 
ob eine geöffnete Klammer folgt. 


CHKCLS ($DEB8) - überprüft via ? SYNCHR, 
ob eine geschlossene Klammer folgt. 


8.2. Fehler 
8.2.1. Allgemeine Fehlerbehandlung 


ONERR1 ($F2D0) - setzt alle Zeiger für eine 
Fehlerbehandlung. 

Vorher: TXTPTR = Zeiger auf erstes Zeichen 
der Zeilennummer der Fehlerbehandlung (nach 
„GOTO"-Token). 

Nachher: OERRPNT ($00F4, $00Ff5) = 
TXTPTR; OERRLIN ($00F6, $00F7) = CURLIN 
($0075, $0076); ERRFLG ($00D8) >= $80: 
TXTPTR = Zeiger auf 1. Zeichen des nächsten 
Befehls. 


RESUME ($F318) — führt das Programm bei 
dem fehlerhaften Befehl fort, nachdem eine 
Fehlerbehandlung statigefunden hat. 

Vorher: ERRLIN ($00DA, $00DB) = Zeilennum- 
mer, bei der der Fehler auftrat; ERRPOS 
($00DC, $00DD) = Zeiger auf Befehlsanfang; 
ERRSTK ($00DF) = Stackpointer vor erster 
Ausführung der fehlerhaften Zeile. 


ERROR ($D412) - gibt die dem Fehlercode 
entsprechende Fehlermeldung aus (siehe Feh- 
tertabelle) oder verzweigt zur Fehlerbehand- 
lung (T HANDLERR), abhängig von ERRFLG. 
Nach der Fehlerausgabe erfolgt ein A/S-Warm- 
start (} RESTART). 
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Accelerator Ile macht 
Ihren Apple® Il, II Plus oder Ile 
dreieinhalbmal schneller. 


— De & Ta. 

= F ee 
DEreS TI TE Te 
rg r 
i { 5 


1 R u 
r LITIITT ee | de] 
DIET ee Mr | De f, FF 
Pr 


IEEITTED TLLLIE PLETIer) 


HrLLcie 
Li 
PETE T TI TEru ORTE \) j) PETE 
. m 5 


Jetzt laufen VisiCalc® Apple Writer, PASCAL, BASIC, 
Datenbanken usw. endlich ohne langen Zeitverlust. 
Stecken Sie einfach die ACCELERATOR Ile Karte 
in irgendeinen Slot und beobachten Sie, 
wir Ihr Apple loslegt! 

ACCELERATOR Ile besitzt seinen eigenen schnellen 
6502 Prozessor und 80 K-Byte Hochgeschwindigkeits- 
speicher, einschließlich einer eingebauten schnellen 
Sprachkarte und schnellem RAM-Speicherplatz für die 
ROM-Sprache. 

Direkt von Pandasoft (Titan Distributor für Deutschland) 
oder bei Ihrem Applehändler. 


Ppandaye®ft Dr.-Ing. Eden 


Uhlandstraße 195 - 1000 Berlin 12 - Mo-Fr 10-18 Uhr, Sa 10-13 Uhr 
Telefon: 0 30/3104 23 - Telex: 185 859 


Oran ge Druckerinterfaces für Apple I+/e/ 
Printer CHR c/lil Interfaces auf dem neuesten 
Stand der Technik. Kompatibel mit allen gängigen Druckern wie: 
APPLE, EPSON, STAR, NEC, OKIDATA usw. Passende Treiber- 


software wird über Dip-Switch ausgewählt, 


Grappler Je Grafikfähiges Druckerinterface 
Printer Interface 


i das keine Wünsche mehr offen läßt. 
Uber 2 Dutzend Kommandos ermöglichen die volle Kontrolie 

über alle Möglichkeiten Ihres i 

Druckers. Jetzt auch mit 

lle Features: Double Hires 

Grafics und 80 Zeichen Dump | |£ 

mittels Druckerpuffer nachrüstbar WE 

über Bufferboard. FR 


Grappler . Besitzt alle Vorzüge des Grappler +, 
hat aber zusätzlich einen integrier- 
ten 16 K Druckpuffer, der aut _ mi . ni 

32 oder 64 K aufrüstbar ıst. 9 


SERIAL Serielles Druckerinterface 
Grappler speziell für den Apple Image- 
Printer Interface 


writer. 
Illorunk 
Mi ie Hotlink, jedoch zusätzlich 
KRRAPPLER C RE mean mare 


Software-Diskette. 


Dpanday®@ftı...-. :- 


Uhlandstraße 195 - 1000 Berlin 12 : Mo-Fr 10-18 Uhr, Sa 10-13 Uhr 
Telefon: 0 30/31 04 23 - Telex: 185 859 


Seriell-nach-Parallel-Wandter für 
den |Ic im Kabel integriert. 
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ThunderScan." 


Ein neues optisches Lesegerät, das beliebige 
Vorlagen in MacPaint überträgt: Fotos, Zeich- 
nungen, Landkarten und Illustrationen werden 
in den Apple-Imagewriter eingespannt und von 
einem Lesekopf, der das Farbband ersetzt, 
abgeltastet. 


& File Edit Scanner Tools 


Contras = 110% 


Lines to g0 186 


@ 32 Graustufen 

@ 80 Punkte/cm Auflösung 

® Ubertragungsmaßstab 25% - 400% 

@® Vorlagen bis 20 x25cm 

® Nachträgliche Veränderung des Kontrasts 
und der Helligkeit, 


Panday®&rft Dr.-Ing. Eden 


Uhlandstraße 195 - 1000 Berlin 12 : Mo-Fr 10-18 Uhr, Sa 10-13 Uhr 
Telefon: 0 30/31 04 23 - Telex: 185 859 
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Hardware... 


wir haben die 
Software... 
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ALLES FÜR DEN APPLE Il+, Ile, IIc UND MACINTOSH 


on Dr.-Ing. Eden 


UHLANDSTR. 195 - D-71000 BERLIN 12 
TEL.1030) 310 423 - TELEX:185859 
Autorisierter @pppie Fachhandter MCROSOFT Distributor 
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I Ku 
Vorher: X = Fehlercode; ERRFLG ($00D8) = = — _ Be 
$00 für Fehlermeldung, ansonsten Sprung nach Tabelle der Zero-Page-Variablen (Auszug) 


VALTSPp =: > 17 - Yarıaklientyp Ser Stri 
f HANDLERR. = Zanı 
INTFLAG - $12 - 18 - Integer-Flag: $88 = Integer 
HANDLERR ($F2E9) — setzt die Fehlerbehand- We 
Inaswena ein und reiter die Zeiger für }RE- SUBFLAG - $14 - 28 - Flag für verschiedene Einschränkungen: 
9 Ä Sen 2.B. keine Integer-Var. bei "FOR" 
SUME. Danach wird 7 GOTO ausgeführt (Zei- EMPFEG — Sie — 22 2 Vergleich Hlag = L = 22. ra 
lennummer auswerten, siehe T ONERR1) und <; 4, <>: 5, <=: 6 
+ NEWSTT aufgerufen. HCOLOR - $1C - 28 — aktuelle HGR-Farbnmaske (wird von 
Spalte zu Spalte invertiert) 
Vorher: X = Fehlercode; REMSTK ($00F8) — GBAS - 526 - 38 — Basisadresse einer HGR-Zeile 
Stackpointer vor Ausführung der fehlerhaften H2 - $2C - 44 - Endkoordinate bei HLINE ($F819) 
Anweisung; OERRPNT ($00F4, $00F5) = Zei- ae 
ger auf Fehlerbehandlungszeile; OERRLIN ne. 0 DT 
($00OF6, $00F7) = Zeilennummer der Fehlerbe- INVFLG  - $32 — 58 - AND-Maske für Bildschirmausgabe 
handlung COLOR - $3C - 68 - Farbe für GR (besteht aus 2 
Ü beren und 
Nachher: ERRNUM ($00DE) = Fehlercode; Eee 
ERRSTK ($00DF) = Stackpointer vor fehlerhaf- Al - $3C - 68 - Startadresse bei Tape-Routine 
tem Befehl; ERRLIN ($00DA, $00DB) = Zeilen- AR - $SE -— 62 — Endadresse bei Tape-Routine 
nummer der fehlerhaften Zeile; ERRPOS LINNUM 850 - 89 - nn Lunallee 
($00DC, $00DD) = Zeiger auf fehlerhaften Be- TEMPPT - $52 - 82 - Deskriptor-Stackpointer 
fehl (durch ?NEWSTT in OLDTPNT = $0079, LASTPT  - $53 -— 83 - Zeiger auf letzten temporären 
$007A gerettet). Deskriptor 
TEMPST - $55 - 85 - Deskriptor-Stack (9 Bytes) 
. SEsE : INDEX —- $5Eb -— 94 — allgemeiner Zeiger 
ERRMSGE ($D419) — gibt in jedem Fall die RESULT - $62 - 98 - Ergebnis der letzten Multiplikation 
dem Fehlercode entsprechende Fehlermeldung oder Division 
aus (siehe Fehlertabelle) und führt dann einen a 7 a E ee = a a ee En 
= = or elger au arıa enanlang numeriStc 
A/S-Warmstart durch (  RESTART). FRETOP_  - $6F - 111 - Ende der String-Variablen 
Vorher: X = Fehlercode. (von oben nach unten) 
FRESPC  - $71 - 113 - String-Zeiger bei temporären Strings 
INPRT ($ED19) - gibt IN “ und die in CURLIN MEMSIZE - $73 - 115 — höchste verfügbare Speicherstelle+ti 
Er HIMEM" 
abgelegte Integer-Zahl via T STROUT aus. | CURLIN - $75 - 117 - nz aktuellen Zeile 
Vorher: CURLIN ($0075, $0076) = auszuge- MSB = $FF bei Direktmodus 
Bande Zeil OLDLIN - $77 - 119 - Nummer der letzten Zeile 
(für Ctrl-C, "RESUME" usw.) 
OLDTXT - $79 - 121 - Zeiger auf letzten Befehl (s.o.)} 
ERRDIR ($E306) - gibt „ILLEGAL DIRECT" DATPTR - $7D - 125 - Zeiger auf aktuelle DATA-Position 
aus, falls kein Programm aktiv ist (Direktmodus). an u ee: ” = z a a an 
Vorher: CURLIN+1 ($0076) = $FF bei Direkt- en 
modus. CPRTYP  - $89 - 137 - Vergleich-Flag 
Nachher A=:Y=. DSCPTR —- $8C -— 148 - Deskriptorenzeiger 
VARLEN - $8F - 143 - Variablenlänge bei Garbage-Collection 
FAC2 — $93 -— 147 - weiterer FP-Akku neben FAC und ÄARG 
HIGHDS — 594 — 148 - Ende des Zielbereichs bei Block-Transfer 
e ö 3 HIGHTR - $96 - 15% - Ende des Quellbereichs bei Block-Trans. 
8.2.2. Die Fehler im einzelnen FACz _ 898 - 152 - A. Fließkomma-Akku 
LOWTR — $9B - 155 — Beginn des Quellbereichs bei Block-Trans. 
BSSERR ($E196) — behandelt „BAD SUB- FAC - $9D - 157 - Hauptfließkomma-Akku (mit einem 
SCRIPT“ via *ERROR. zusätzlichen Mantisse-Byte) 
DBZERR ($EAEI) - behandelt „DIVISION BY FACSIGN - $A2 - 162 - Vorzeichen von FAC: = = a 
ZERO” via T ERROR, ARG - $45 - 165 - zweiter Fließkomma-Akku 
FTCERR ($E430) — behandelt „FORMULA SCNCFR — SE - 17] - gemeinsames Vorzeichen von FAC und ARG 
ng STRING - $AB - 171 - Zeiger für String-Verschiebung 
TOO COMPLEX via T ERROR. EXTRAFAC — $AC — 172 - 6. Mantisse-Byte für FAC 
ILDERR ($E30B) — behandelt „ILLEGAL DI- STRNG2? - $AD - 173 - allgemeiner Zeiger bei String-Verwaltung 
RECT" via [ ERROR. TXTPTR  - $B8 - 184 - Zeiger auf aktuelle Programmposition 
ILOERR ($E199) - behandelt „ILLEGAL a _ De = en _ ee ne Dun 
ze u —_ — Auto-RUN-Flag: führ ei jedes 
QUANTITY” via T ERROR. Kommando als "RUN" aus 
NWFERR ($DDOB) - behandelt „NEXT WITH- ERRFLG - $D8 - 216 - ONERR-Flag: führt bei $89 
OUT FOR“ via F ERROR. Fehlerbehandlung aus 
OODERR ($E1 I.) - behandelt .OUT OF DA- ERRLIN - $DA - 218 - Nummer der Zeile, bei der ein Fehler 
. ftrat 
TA" via T ERROR. ERRPOS - $DC - 220 - a auf Zeile, bei der ein Fehler 
MEMERR ($D410) - behandelt „OUT OF ME- auftrat 
MORY“ via * ERROR. ERRNUM - $DE - 222 — Fehlernummer (siehe Fehlertabelle) 
5 ERRSTK - $DF - 223 -— Stackpointer vor Fehlerbehandlung 
OVFERR ($E8D5) — behandelt „OVERFLOW HGRX - $EB - 224 - X-Koordinate für HGR-Routinen 
via TERROR. HGRY - $E2 - 226 - Y-Koordinate für HGR-Routinen 
RWGERR ($D979) — behandelt „RETURN in = = z = = a auf erste Spalte bezogen 
Te az 25 = —S»paltennunmer 
WITHOUT GOSUB“ via f ERROR. . (Spalte enthält 7 Fizen) 
SYNERR ($DEC9) - behandelt „SYNTAX via HPAG - $E6 - 238 - HGR-Seite: $28 = Seite 1 
TERROR. $40 = Seite 2 
_ i SCALE - $E7 - 231 - SCALE-Wert 
rc eo behandelt „TYP MIS SHPTAB - $E8 - 232 - Zeiger auf Shape-Tabelle 
. FIRST - $FÖ - 248 - PLOT-Parameter (1. Koordinate) 
UDFERR ($E30E) — behandelt „UNDEF'D SPEEDZU - $Fl - 241 - Ausgabeverzögerung 
FUNCTION“ via F ERROR. TRCFLE - $F2 - 242 - Trace-Flag: $88 = Trace-Modus 
ORMASK - $F3 - 243 - OR-Maske für Bildschirmausgab 
UNDERR ($D97C) - behandelt „UNDERID OERRPNT - $FA - 244 - Zeiger auf OR ee 
STATEMENT“ via f ERROR. OERRLIN - $F6 - 246 - Nummer der ONERR-Zeile 
= REMSTK  - $F8 - 248 - Stackpointer, der vor jedem Befehl 
| gerettet wird 
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Fehlertabeile | (Zur Vervollständigung der Tabelle | ProDOS-BASIC.SYSTEM-Fehlernummern 
sind hier auch die Fehlernummern der 
Applesoft-Interpreter-Fehlernummern Disketten-Betriebssysteme aufgeführt) 


$98 d) - "NEXT WITHOUT FOR" | 582 2) "RANGE ERROR" 

$1% 16) "SYNTAX" 03 = "NO DEVICE CONNECTED" 
$16 ( 22) - "RETURN WITHOUT GOSUB" DOS-3.3-Fehlernummern | $84 ( 4) - "WRITE PROTECTED" 

H2A 42) "OUT OF DATA” | $95 5] "END OF DATA" 

535 53 "ILLEGAL QUANTITY" $21l il 1) "LANGUAGE NOT AVAILABLE" $06 6) "PATH NOT FOUND" 

$45 69) "OVERFLOW" $62 I 2) "RANGE ERROR" 98 8) "T/O ERROR" 

$4D 77) "OUT OF MEMORY" 353 I "RANGE ERROR" 589 9) "DISK FULL" 

$5A "UNDEF'D STATEMENT" 984 | WRITE PROTECTED" SOA 19) "FILE LOCKED" 

$6B "BAD SUBSCRIPT" $P5 I{ "END OF DATA" | $0B "INVALID PARAMETER" 
$78 "REDIM'D ARRAY" $06 [ "FILE NOT FOUND" SC "NO BUFFERS AVAILABLE" 
$85 "PIVILSION BY "ZERO! 507 | "VOLUME MISMATCH'" $AD "FILE TYPE MISMATCH" 
$95 UTLLEGAL. EIRELT! $08 I "T /O ERROR" $PE "PROGRAM TOO LARGE” 
$AZ "TYPE MISMATCH" 509 I "DISK EUEL! $öF "NOT DIRECT COMAND" 
$BB "STRING TOO LONG! $OA | "FILE LOCKED'' $19 "SYNTAX ERROR" 

$BF "FORMULA TOO COMPLEX" SB I "SYNTAX ERROR" $11 "DIRECTORY FULL" 

$D2 "CAN'T CGONTINUE" 300 { "NO BUFFERS AVAILABLE" $12 "FILE NOT OPEN" 

$Eß "UNDEF'D FUNCTION" $öD {| "FILE TYPE MISMATCH" $13 "DUPLICATE FILE NAME" 
$FE falsche Eingabe nach INPUT SE | "PROGRAM TOO LARGE" $14 UeTILE BUSY" 

$FF Gtrl-6-Unterbrechung $SOF | "NOT DIRECT COMMAND" $15 "PILEGE) STILL OPEN" 


Tabelle der Schlüsselwörter (Token) Tabelle der aufgeführten 


Routinen 
END $AA (164) — LOMEM: numerisch 
FOR $A5 (165) ONERR 
NEXT $A6 RESUME 
DATA $A7 RECALL 
INPUT $A8 STORE 
DEL $A9 SPEED= 
DIM $AA LET 
READ $AB GOTO 
GR $SAc RUN 
TEXT $AD IF 

PR# $AE RESTORE $D43C RESTART 
IN# $AF & $DA45C NXTLIN 
CABL $B® GOSUB $DAF2 LINKSET 
PLOT $Bl RETURN $D52C INLINE 
HLIN $B2 REM $D5RE INLINEL 
VLIN $B3 STOP $D539 GDBUFS 
HGR2 $B4 ON $D553 INCHR 
HGR $B5 WAIT $D566 RUN 
HCOLOR= $B6 LOAD $D5SC PARSE 
HPLOT $B7 SAVE $DE1A FNDLIN 
DRAW $B8 DEF $D61E FNDLINl 
XDRAW $B9 POKE $D64B SCRTCH 
HTAB $BA PRINT $D665 SETPTRS 
HOME $BB CONT $D66C CLEARC 
ROT= $BC LIST $D683 STKINI 
SCALE= $BD CLEAR $D697 STXTPT 
SHLOAD $BE GET $D6A5 LIST 
TRACE $BF NEW $DECC MAINLST 
NOTRACE $c9 TAB{ $D7D2 NEWSTT 
NORMAL $c1 TO $D828 GOCMD 
INVERSE 02 FN $D849 RESTORE 
FLASH $03 SPC( $D853 SETDA 
COLOR $c4 THEN $D858 ISCNTC 
POP 505 AT $D86E STOP 
VTAB $C6 NOT $D870 END 


HIMEM: $07 STEP | $D896 CONT 
| $DSBPB SAVE 


$D8C9 LOAD 
$D8rFd VARTIO 
$D9B1 PROGIO 
$DI1B RUNLINE 
$D921 GOSUB 
$D935 GOLINE 
$D93E GOTO 
$D96B POP 
$D979 RWGERR 
$DI7C UNDERR 


+ 


$A0Bl CHRGET 
$B8B7 CHRGOT 
$D3YA BLTU1 

$D3D6 CHKSTK 
$D3E3 REASON 
$DAalß MEMERR 
$D412 ERROR 

$D419 ERRMSGE 


Ivom=onx* 


HM A 
= 62 
ur 
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$D995 
$D998 
$DYA3 
$D9A6 
$D9C9 
$DIDC 
$DYEC 
$DASC 
$DA4AG 
$DAYA 
$DAFB 
$DB3A 
$DBAl 
$DB57 
$DB5A 
$DB5C 
$DDOB 
$DD67 
$DD6A 
$DD6EC 


$DD76 , 


$DD7B 
$DE6P 
$DES1 
$DEB2 
$DEBS 
$DEBB 
$DEBE 
$DECH 
$DECY 
$DED5 
$DEEI 
$DFAF 
$DF55 
$DF5D 
$DF6B 
$DF7D 
$DFE3 
$EÖTD 
SEBSC 
$E196 
$E199 
$EIBC 
$E2AD 
$E2B8 
$E2ES 
$E2F2 
$ESBl 
$E396 
$ESB 
$E30E 
$E3D5 
$E3DD 
$E3E7 
$EA2A 
$EA3B 
$E452 
$E484 
$ESDA 
$E5E2 
$ESFD 
$ESBB 
$ESPA 
$E635 
$ESF5 
$ESFB 
$ESFB 
$E797 
$E746 
$E752 
$ETAB 
$ETAT 
$ETAA 
$E7BE 
$E7C1 
$ES2E 
$ESAE 
$E8D5 
$E941 
$E9TF 
$E982 
$EIE3 
$EA39 
$EAB5 
$EASS 
$EAS9 
$EAEL 
$EAF9 
$EBIE 
$EB21 
$EB2B 


55701 
55794 
55715 
55718 
55753 
55772 
55788 
5582# 
55878 
55962 
56959 
56122 
56129 
56151 
56154 
56156 
56587 
56679 
56682 
56684 
56694 
56699 
56928 
56961 
5781P 
57616 
57819 
57622 
57924 
57933 
57045 
57065 
57167 
57173 
57181 
57184 
57213 
57315 
57469 
57508 
57750 
57753 
57788 
58029 
58049 
58085 
58898 
58113 
58118 
58123 
58126 
58325 
58333 
58343 
58419 
58416 
58456 
58500 
58836 
58850 
58877 
5888B 
58884 
58933 
59125 
59128 
59131 
59143 
59206 
59218 
59296 
59303 
59306 
59326 
59329 
59438 
59470 
59605 
59713 
59775 
59778 
59875 
59961 
59989 
SÖBBE 
6BBH9 
69129 
69153 
SL 
69193 
60293 


DATA 
ADDON 
DATAN 
REMN 
IF 

REM 
ONGOTO 
LINGET 
LET 
STRCPY 
CRDO 
STROUT 
STRPRTL 
OUTSPC 
OUTQST 
OUTDO 
NWFERR 
FRMNUM 
CHKNUM 
CHKSTR 
TMMERR 
FRMEVL 
GETVAL 
STRTXT 
PARCHK 
CHKCLS 
CHKOPN 
CHKCOM 
SYNCHR 
SYNERR 
VARL 
VARL1 
OR 

AND 
FALSE 
TRUE 
STRCMP 
PTRGET 
ISLETC 
NEWVAR 
BSSERR 
ILQERR 
OODERR 
MULT 
MULTI 
FREI 
GIVAYF 
SNGFLT 
ERRDIR 
ILDERR 
UDFERR 
STRINI 
STRSPA 
STRLIT 
PUTNEYW 
FTCERR 
GETSPA 
GARBAG 
MOVINS 
MOVSTR 
FRESTR 
FREFAC 
FRETMP 
FRETMS 
GTBYTC 
GETBYT 
CONINT 
VAL 
GETNUM 
GETADR 
FADDH 
FSUB 
FSUBT 
FADD 
FADDT 
SIGNIF 
ZEROFAC 
OVFERR 
LOE 
FMULT 
FMULTT 
CONUPK 
MULTI® 
DIVI1® 
FDIV 
FDIVT 
DBZERR 
MOVFM 
MOV2F 
MOVILF 
MOVMF 


alphabetisch 


ABS 
ADDACC 
ADDON 
AND 
ATN 
BKGND 
BELUT 
BSSERR 
CHKCLS 
CHKCOM 
CHKNUM 
CHKOPN 
CHKSTK 
CHKSTR 
CHRGET 
CHRGOT 
CLEARC 
COLDST 
CONINT 


MOVFA 
MOVAF 
RNDB 
SIGN 
SGN 

ABS 
FCOMP 
QINT 
INT 

FIN 
ADDACG 
INPRT 
LINFRT 
PRNTFAG 
FOUT 
SOR 
FPHRT 
EXP 
ODDSER 
SERIES 
RND 

005 
SIN 

TAN 

ATN 
COLDST 
PLOTFNS 
LINCOOR 
FLOT 
HLIN 
VLIN 
TRACE 
NOTRACE 
NORMAL 
INVERSE 
FLASH 
HIMEML 
LOMEMl 
ONERR1 
HANDLERR 
RESUME 
DEL 
STORE 
RECALL 
HERZ 
HGR 
HCLR 
BKGND 
HPOS 
HPLOT 
DECRX 
INVMASK 
INCRX 
DECRY 
INCRY 
GLIN 
HFIND 
DRAW 
DRAW] 
ADRAW 
ADRAW1 
HFNS 
HCOLOR1 
SHPFNS 
SHLOAD 


CONT 
CONUPK 
cos 
CRDO 
DATA 
DATAN 
DBZERR 
DECRX 
DECRY 
DEL 
DIV1® 
DRAW 
DRAW1 
END 
ERRDIR 
ERRMSGE 
ERROR 
EXP 
FADD 
FADDH 
FADDT 
FALSE 
FCOMP 
FDIV 
FDIVT 
FIN 
FLASH 


FMULT 
FMULTT 
FNDLIN 
FNDLIN1 
FOUT 
FPWRT 
FREI 
FREPAC 
FRESTR 
FRETMP 
FRETMS 
FRMEVL 
FRMNUM 
FSUB 
FSUBT 
FTCERR 
GARBAG 
GDBUFS 
GETADR 
GETBYT 
GETNUM 
GETSPA 
GETVAL 
GIVAYF 
GLIN 
GOCMD 
GOLINE 
GOSUB 
GOTO 
GTBYTC 
HANDLERR 
HCLR 
HCOLOR1 
HFIND 
HFNS 
HGR 
HGR2 
HIMEMI 
HLIN 
HPLOT 
HPOS 

TR 
ILDERR 
ILOERR 
INCHR 
INCRX 
INCRY 
INLINE 
INLINEI 
INPRT 
INT 
INVERSE 
INVMASK 
ISCNTC 
ISLETC 
LET 
LINCOOR 
LINGET 
LINKSET 
LINPRT 
LIST 
LOAD 
LOG 
LOMEM1 





MAINLST 
MEMERR 
MOVIF 
MOV2F 
MOVAF 
MOVFA 
MOVFM 
MOVINS 
MOVMF 
MOVSTR 
MULT 
MULTI 
MULT19 
NEWSTT 
NEWVAR 
NORMAL 
NOTRACE 
NWFERR 
NXTLIN 
ODDSER 
ONERR1 
ONGOTO 
OODERR 
OR 
OUTDO 
OUTQST 
UOUTSPC 
OVFERR 
PARCHK 
PARSE 
POT 
PLOTFNS 
POP 
PRNTFAC 
PROGIO 
PTRGET 
PUTNEW 
QINT 
REASON 
RECALL 
REM 
REMN 
RESTART 
RESTORE 
RESUME 
RND 
RNDB 
RUN 
RUNLINE 
RWGERR 
SAVE 
SCRTCH 
SERIES 
SETDA 
SETFTRS 
SGN 
SHLOAD 
SHPFNS 
SIGN 
SIGNIF 
SIN 
SNGFLT 
SsQaR 
STKINI 
STOP 
STORE 
STRCMP 
STRCPY 
STRINL 
STRLIT 
STROUT 
SIRERIT 
STRSPA 
STRTÄT 
SEATET 
SYNCHR 
SYNERR 
TAN 
TMMERR 
TRACE 
TRUE 
UDFERR 
UNDERR 
VAL 
VARL 
VARL1 
VARTIO 
VLIN 
XDRAW 
XDRAW1 
ZEROFAC 
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Richtlinien für Autoren 


1. Rechtliches 


Der eingereichte Beitrag muß frei von 
Rechten Dritter sein, d.h. er darf noch 
nicht anderweitig veröffentlicht oder zur 
Veröffentlichung angeboten worden 
sein. Bei Kleinzitaten aus fremden Auf- 
sätzen und/oder Programmen muß die 
Quelle deutlich vermerkt werden. Bei 
absichtlich oder fahrlässig verschwiege- 
nen Zitaten liegt die urheberrechtliche 
Haftung bei Ihnen, Beiträge mit Großzi- 
taten, z.B. kompletten Fremdprogram- 
men, werden nicht angenommen, 

In ein Programm darf kein amerikani- 
scher Copyright-Vermerk und keine An- 
schrift eingefügt werden. Verwenden 
Sie statt dessen die deutsche Form 
„Von Vorname Name, Jahr“, 

Sie übertragen uns bezüglich Ihres Bei- 
trages das ausschließliche Recht der 
Vervielfältigung und Verbreitung in jeder 
Form als Schriftwerk und Datenträger. 
Bei Programmen bedeutet dies konkret, 
daß sie nicht nur in Druck-, sondern 
auch in Diskettenform (Peeker-Sam- 
meldiskette) vertrieben werden, Die 
Rechtsübertragung findet selbstver- 
ständlich erst mit unserer schriftlichen 
Zusage der Inverlagnahme statt. Solan- 
ge diese Zusage noch nicht erfolgt ist, 
kann ein Beitrag jederzeit zurückgezo- 
gen werden, 


Das Honorar beträgt einheitlich DM 
200,- pro Druckseite für Texte, Listings 
sowie reproduktionsfähige Bildmateria- 
lien, was die Honorierung für die Sam- 
meldiskette einschließt. Von uns erstell- 
te plakative Einstiegsseiten mit Zierbil- 
dern usw, werden nicht honoriert. Im 
Falle eines Reprint-Sammelheftes ver- 
güten wir nochmals DM 50,- pro Druck- 
seite. Bei sehr umfangreichen Beiträ- 
gen oder bei Programmen, die aus 
Platzgründen nur auf die Sammeldisket- 
te aufgenommen werden können, er- 
folgt die Honorierung nach Vereinba- 
rung. 


Bei der Einreichung des Manuskriptes 
vermerken Sie bitte, ob Sie mit diesen 
„Richtlinien für Autoren“ einverstanden 
sind, Es genügt, wenn Sie uns den Äuf- 
satz zunächst in Papierform zusenden. 
Ein Vorspann, aus dem Inhalt und 
Zweck des Themas hervorgehen, be- 
schleunigt die Prüfung. Zur endgültigen 
Entscheidung über die Annahme benö- 


Peeker 12/85 


tigen wir allerdings die kompletten Un- 
terlagen. Im Falle eines Programms 
spezifizieren Sie bitte sehr genau dieje- 
nige Konfiguration (lI+/e/c, Nachbau 
XYZ; FX-80, Imagewriter; DOS 3.3, 
ProDOS, Pascal 1.2, Turbo 3.0; Videx, 
64K-Karte usw.), auf der Sie das Pro- 
gramm persönlich getestet haben, Ge- 
ben Sie niemals eine Ihnen nicht ver- 
fügbare Konfiguration an. 


2. Satzverfahren 


Alle Aufsatztexte und Programmlistings 
des Peekers werden komplett auf dem 
Apple lle/c für die Satzanlage als ko- 
dierte ASCII-Dateien aufbereitet und di- 
rekt auf Film belichtet, Wie Sie einem 
Peeker-Heft unschwer entnehmen kön- 
nen, gibt es zwei Arten von Texten: 


Aufsätze 

Hierzu benötigt die Satzanlage Texte, 
bei denen nur die Absätze durch Re- 
turns abgeschlossen werden, denn die 
Silbentrennung und das ÄAusschließen 
auf Zeilenbreite (= Zeilenumbruch) er- 
folgt vollautomatisch durch den Satz- 
computer. In Aufsatztexten haben die 
Schriftzeichen unterschiedliche Dickten 
(= Buchstabenbreiten). 


Listings 

Hierzu benötigt die Satzanlage Texte, 
bei denen alle Zeilen durch Returns ab- 
geschlossen werden, denn das Silben- 
trenn- und Ausschließprogramm wird 
hier vom Satzcomputer nicht aktiviert, In 
Listings haben die Schriftzeichen glei- 
che Dickten (= Buchstabenbreiten). 
Obwohl die Listings auf den ersten Blick 
wie Schreibmaschinentexte aussehen, 
werden sie in Wirklichkeit in einer spe- 
ziellen Druckschrift gesetzt, die ein ge- 
stochen scharfes Schriftbild liefert. 


Aufsatztexte und Listings sollten als 
DOS-3.3-formatierte Disketten (35 
Spuren) eingereicht werden. Macin- 
tosh-Disketten müssen zuvor konver- 
tiert werden. Nur in Sonderfällen, etwa 
bei Grundsatzaufsätzen branchenfrem- 
der Spezialisten, genügt das Papierma- 
nuskript. 


2.1. Aufsatz 


Für den Aufsatztext benötigen wir einen 
DOS-3.3-Textfile, der mit einem belie- 
bigen Textverarbeitungsprogramm er- 


stellt werden kann. Da viele Autoren 
den (zeilenorientierten) Pascal-Editor 
verwenden, akzeptieren wir auch sol- 
che Textfiles; die unerwünschten Re- 
turns entfernen wir hier selbst. Für die 
DOS-Konvertierung von CP/M-, Pro- 
DOS- und Pascal-Textfiles können Sie 
bei Bedarf unsere Konvertierungspro- 
gramme verwenden. Beachten Sie, daß 
wir in der Redaktion nur den Applewriter 
besitzen, d.h. wir haben keinen Word- 
star USW. 

Schreiben Sie den Text so, wie ihn die 
Satzanlage liebt, d.h. völlig schmucklos 
ohne Unterstreichungen, ohne Einrük- 
kungen von Überschriften, ohne Steu- 
erzeichen für den Matrixdrucker usw. 
Dies ist im übrigen für Sie auch viel 
einfacher und schneller, Textstellen, die 
später halbfett oder kursiv erscheinen 
sollen, markieren Sie mit Farbstiften auf 
dem Papierausdruck. Die Kodierung ist 
dann unsere Angelegenheit, Legen Sie 
statt dessen Ihr Augenmerk auf Ortho- 
graphie, Interpunktion, Grammatik, Stili- 
stik, (dezimalklassifikatorische) Gliede- 
rung und terminologische Einheitlich- 
keit. 

Überschlägige  Umfangsberechnung: 
Eine Druckseite umfaßt etwa 6,000 Zei- 
chen brutto und unter Berücksichtigung 
der Zwischenüberschriften und Leer- 
zeilen zwischen größeren Absätzen et- 
wa 5.000 Zeichen netto. 


Tabellen und sonstige tabellarische 
Übersichten sind für uns nach wie vor 
ein Problem. Beachten Sie folgende Lo- 
gik: Der Satzcomputer verwandelt bei 
Aufsatztexten — im Gegensatz zu Li- 
stingtexten — jede Folge von mehreren 
Leertasten in eine Leertaste, wodurch 
die Spalten einer Tabelle alle nach links 
rutschen würden. Wegen der unter- 
schiedlichen Dickten wären nämlich 
Mehrfach-Leertasten zwecklos. Schrei- 
ben Sie deshalb Tabellen so, wie sie 
aussehen sollen, d.h. mit mehrfachen 
Leertasten zwischen den Spalten, und 
speichern Sie sie als gesonderte Text- 
files ab. Diese Tabellen werden dann 
von uns entweder mit Tabulatoren ko- 
diert oder in Schreibmaschinenschrift 
belichtet. 


Technische Zeichnungen legen Sie 
so maßstabsgetreu wie möglich an, Sie 
werden von uns jedoch im Atelier um- 


gezeichnet, so daß gut lesbare Frei- 
handzeichnungen genügen, 


2.2. Listing 


Für die Listings benötigen wir lediglich 
die Programmdiskette, da wir die Aufbe- 
reitung für die Satzantage selbst vor- 
nehmen. Programme mit englischen 
Menü-Texten und Kommentaren müs- 
sen leider zurückgewiesen werden, 
Listings werden von uns normalerweise 
zweispaltig gesetzi (maximal 65 Zei- 
chen/Zeile}, gelegentlich dreispaltig 
(maximal 39 Zeichen/Zeile). Aus Platz- 
gründen können Listings mit mehr als 
65 Zeichen/Zeile in der Regel nicht 
mehr angenommen werden. 
Überschlägige Umfangsberechnung: 
Eine Spalte enthält maximal 90 Zeilen, 
beim üblichen zweispaltigen Satz also 
maximal 180 Zeilen. 


Für die verschiedenen Programmier- 
sprachen gilt: 

Basic-Programme: Verstecken Sie 
keine Ctrl-Zeichen in REM-Zeilen usw., 
denn diese müssen von uns dann ma- 
nuell entfernt werden, Verwenden Sie 
wegen der beim Satz automatisch vor- 
genommenen Freistellung der Zeilen- 
nummern nur solche mit gleicher Stel- 
lenanzahl (bei kleinen Programmen Re- 
number ab Zeile 10, bei mittelgroßen ab 
Zeile 100, bei großen ab Zeile 1000). 
Falls möglich, bitte REM-Kommentare 
und Menü-Texte in Großkleinschrift. 
Assembler-Programme: Schreiben 
Sie am besten mit einem 40-Z/Z-Editor, 
da dann einschließlich der Opcodes ei- 
ne Zeilenbreite von maximal 65 Zei- 
chen/Zeile erreicht werden kann, Wir 
bevorzugen den Big-Mac- bzw. Merlin- 
Assembler, weil wir hierzu spezielle 
Programme für das Assemblieren auf 
Diskette (statt auf den Drucker) entwik- 
Kelt haben. Im Interesse der Kompatibi- 
Iität mit anderen Assemblern sollten 
Macros vermieden werden. Kommenta- 
re möglichst in Großkleinschrift, alles 
übrige in Großschrift, 
Pascal-Programme: Auch für Pascal- 
Programme gilt eine Zeilenbreite von 
maximal 65 Zeichen/Zeile, Falls mög- 
lich, bitte eckige und geschweifte Klam- 
mern verwenden und statt dessen auf 
Umlaute verzichten. Bei Programmen 
für Anfänger Schlüsselwörter bitte in 
Großbuchstaben schreiben. 
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Ergänzung zum Aufsatz 
„Apple-CP/M“ aus Peeker, Heft 6/1985 


von Bernd Eichinger-Wieschmann 


Das nachfolgende Programm soll dem 
Turbo-Pascal-Besitzer eine einfache und 
unkomplizierte Installierung des RAM- 
Disk-Drivers aus dem 0.9. Aufsatz ermög- 
lichen. Das Turbo-Programm RAMDISK- 
‚PAS erzeugt einen COM-File, der aus 
dem CP/M-Betriebssystem heraus mit 

> RAMDISK Return 

direkt gestartet werden kann und eine 
RAM-Disk „C:“ auf der 64K-Karte des 
Apple Ile anlegt. 

Es wurden von mir keine Veränderungen 
auf maschinensprachlicher Ebene vorge- 
nommen. Daher sind die in dem Artikel 
von K.-W. Bott getroffenen Aussagen 
nach wie vor gültig. Insbesondere beachte 
man, daß der Driver nur für CP/M-2.2- 
56K, also nicht für 60K- oder 64K-CP/M- 
Versionen, gedacht ist, weil die eine Bank 
der unteren Language-Card in den RAM- 
Disk-Speicher mit einbezogen wird. 


Von den Listings wurde nur der Hexcode, 
jeweils die zweite Spalte im Listing, über- 
nommen und in Turbo-Pascal eingebettet. 
Für einen erfahrenen Programmierer dürf- 
te es kein Problem sein, dieses Pascal- 
Programm direkt mit einem Debugger in 
einen Assembler-File umzuwandeln. Mir 
ging es vielmehr darum, die Möglichkeiten 
eines modernen Compilers aufzuzeigen. 
In den meisten „Hochsprachen” ist es 
nämlich normalerweise schwierig oder gar 
unmöglich, Maschinenprogramme in den 
Quelltext einzubinden. Turbo-Pascal 
macht hier trotz der Inline-Prozedur keine 
Ausnahme. Es bietet dafür aber andere 
Befehle, die diese Einschränkung wieder 
wettmachen. 


Typisierte Konstanten 


Und nun zum Programm selbst: Zunächst 
wird der gesamte Hexcode in jeweils ge- 
trennten Feldern abgelegt. Da in Turbo- 
Pascal die sog. typisierten Konstanten im- 
plementiert sind, bereitet dies keine 
Schwierigkeiten. Darunter sind Variablen 
zu verstehen, die nach „CONST" definiert 
und mit einem bestimmten Wert initialisiert 
werden. 
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Der erste Grund für den Einsatz der typi- 
sierten Konstanten liegt in der Syntax: Da 
sie im Vereinbarungsteil stehen müssen, 
sind am Anfang eines Programms oder 
einer Prozedur schon wichtige Variablen 
bekannt. Ein Beispiel zeigt das Programm 
TESTI1. Beim Programmstart wird der typi- 
sierten booleschen Konstanten WAHR der 
Wert TRUE zugewiesen. Daher hat sie 
schon beim Start einen bekannten Inhalt 
und muß diesen nicht erst im eigentlichen 
Programm erhalten. 

Der zweite Grund ist die Einsparung von 
Programmcode: Während TEST1 (im RAM 
compiliert) eine Größe von 116 Bytes ein- 
nimmt, bringt es TEST2 auf 119 Bytes. Bei 
einer großen Zahl von Zuweisungen 
macht sich dies bemerkbar. 


Da es sich bei den Feldinhalten von Ram- 
Init, AuxDriver, MoveDriver und Formatter 
um Objektcode handelt, müssen diese als 
Hexwerte in den Feldern abgelegt werden, 
also mit führendem „$“. 

Nun folgt die einzige Prozedur des Pro- 
gramms. Die Prozedur „Brun“ startet ein 
6502-Programm, das an einer beliebigen 
Stelle im Speicher steht. An „Adresse“ 
wird die Startadresse des auszuführenden 
Programms übergeben. Da es in Turbo- 
Pascal keinen Assembler gibt, muß diese 
Routine zum Starten als Inline-Prozedur 
geschrieben werden. Inline akzeptiert nur 
Hexzahlen oder — wie in diesem Fall — 
typisierte Konstanten. Da an die Prozedur 
der Wert „Adresse“ nicht ais VAR-Para- 
meter übergeben werden kann, erhält 
„Adresse“ nur einen Zeiger auf den tat- 
sächlichen Inhalt. Der Inhalt, auf den 
„Adresse“ zeigt, wird nun dem Z80-Regi- 
ster HL zugewiesen. Der Rest entspricht 
dem SWITCHDEMO von K.-W. Bott 
(Peeker 6/85, S. 57). 


Das Hauptprogramm 


Zunächst wird der Bildschirm gelöscht und 
eine Meldung ausgegeben, um dem An- 
wender zu zeigen, daß die RAM-Disk als 
Laufwerk „C:“ installiert wird. Nun werden 


CP/M-56K-RAM-Disk 
unter Turbo-Pascal 


mittels „Move“ die entsprechenden Fel- 
der an ihren Platz im RAM „geschoben”. 
Da zwischen CP/M- und DOS-Adressen 
ein Versatz von $1000 Bytes besteht, 
müssen die Adressen entsprechend an- 
gepaßt werden (s. Peeker 6/85, S. 56). 
Mit Brun werden nun diese „Felder” ge- 
startet. Das letzte Feld wird, da es ein CP/ 
M-Programm darstellt, mit der letzten In- 
line-Prozedur ab 0100h gestartet, wie dies 
bei CP/M-Programmen üblich ist. Da aber 
auch der Turbo-Runtime-Kern ab 0100h 
beginnt, wird dieser zwangsläufig zerstört. 
Dies ist nicht weiter tragisch, da Ramlnit 
von sich aus zu CP/M und seinem CCP 
zurückkehrt. 


Compilierung von RAMDISK.PAS 


Nach dem Starten von Turbo-Pascal und 
der Eingabe des Listings von RAMDISK- 
‚PAS wähle man über „O” für Compiler- 
Optionen „C" für COM-File (= direkte 
Compilierung auf Diskette). Den fertigen 
COM-File starte man dann aus dem CP/ 
M-Betriebssystem heraus mit 

> RAMDISK Return. 


Kurzhinweise 


1. Zweck: 

Installierung einer RAM-Disk unter GP/M 
2. Konfiguration: 

Ile mit erweiterter 80-Zeichenkarte; 

CP/M 2.20 56K mit Turbo-Pascal 2.0 oder 
30 

3. Test: 

RAMDISK.PAS direkt auf Diskette compi- 
lieren und später unter GP/M mit 
RAMDISK 

starten. 

4. Sammeldisk: 

RAMDISK.PAS 

Vorkodierter Quelltext zur Übertragung mit 
APDOS: 

a) APDOS von Drive A starten 

b) Sammeldisk in Drive B einlegen 

c) RAMDISK.PAS=RAMDISK.PAS ein- 
geben 

d) Danach unter Turbo-Pascal direkt com- 
pilierfähig 


Peeker 12/85 


TEST 1 Procedure Brun {Adresse: Integer); 
{ruft Unterprogramm ab Adresse auf )} 
Program Testl; Begin 
Inline ($2A/Adresse/ {LD HL, {ädresse)} 
Const Wahr: Boolean = True; {typisierte Konstante} $22/$D9/$F3/ {LD (Vec),HL} 
Var Ch: Char; $2A/SDE/$F3/ {LD HL, (CPU)} 
Begin 57); {LD {HL),A} 
Repeat End; 
Write ('Weiter J/N '}; 
Readln (Ch); Begin 
I£f Ch = '!N' CIrscr; 
Then Wahr := Not Wahr; Writeln 
Untıl Not Wahr; {'"Pseudo-Disk wird als Laufwerk C: installiert'); 
End 
Move (AuxDriver, Mem [$8®99],228); 
{AuxDriver nach $9ßß@9, DOS} 
TEST 2 Move (MoveDriver, Mem [$85ß9],52); 
{MoveDriver nach $95ß@, DOS} 
Program Test2; Brun ($95ßß®); 
{Run MoveDriver} 
Var Wahr: Boolean; Move (Formatter, Mem [$8888],117); 
Ch: Char; {Formatter nach $9ß0®, DOS} 
Begin Brun ($99ß9); 

Wahr := True; {Run Formatter} 

Repeat Move (RamInit,Mem [$18%],173); 
Write ('Weiter J/N '); {RamInit nach Pißßn, CP/M} 
Readin (Ch); Inline ($03/$88/$ß1); 

IfCh = 'N' {JP ®1®S$h startet RamlInit} 
Then Wahr := Not Wahr; {Kann nicht mehr zurueck!} 
Until Not Wahr; 
End, 
RAMDISK.PAS 


Program RAMDISK; 


{Installiert RAM-Disk unter CP/M als Drive C:} 
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{Die Felder entsprechen den Routinen aus Heft 6/85, S.55 ff.} 
Const 
Ramlnit: Array [1..173] of Byte = 
(521,$83 ,$DA, $22,$5D,$DA,$11,$83,$DA, $61,$9E, $81,$26, $ßF,$7C,$B7 
‚$CA,$1B,$1,$25,$9A,$12,393,$13,$03, $0E,$®1,$11,$93,$FE, $3E, $4C 
‚$12,$13,33E,$79,$12,$13,$3E,$®C,512,$11,$B8,$F3,$3E,$983,$12,$11 
‚$78,$FC,$81,$44,$01,$26,$59,$7C,$B7,$CA,$09,$99,$25,$59A,$12,$93 
‚$13,$03,$37,$01,$AD,$83,$0®,$AD, $AE, $FE,$C9, $82,$F@,$0A,$08,$78 a = En 
'$2B.$19.$0E.$aD.$81.8C0.$28.$60.$ED,$09.5C9$AD.$83,$CD, SAD, $83 640 KByte-Drives für den Apple //c! 
‚$cQ,$Ac,$B9.$FF,$8D,$08,$CQ,$AD,$81,$CH,$6B,$A5,SCE,$A6,$CF,$AA © 5'/4- od. 3'/2-Zoll-Format (Teac FD55/35-F) 
‚506 ,$8C ,$C8, $0C ,$A4,$07 ,$8D,$08,$C0,$85,,$CE, $86 ,$CF, $84,$97,$AD ® FD55-F umschaltbar auf 35/40 Track 
‚$08,$0c ,$85,$06,$AD,$8B,$C0,$AD,$8B,$C9,$Ad, $00 ,$Bi, $CE,$91,$06 © Anschluß an die externe Laufwerkbuchse 
‚$88,$D9.,$F9,$A9,$00 ,$8D ,$EA, $03 ,$AD, $81,$C0,$60,$09,$FF,$29, $09 ® Durch Einbauplatine (kein Löten) 640 KByte im Direktzugriff 
‚503 ,$07 ,$00.,$3F ,$06, $1F ,$00,$80 ,$00, $00 ‚500, $00,508); @ Einfache Anpassung für DOS 3.3, UCSD-Pascal und PRODOS 
durch menügeführten Patch 
AuxDriver: Array [1..228] of Byte = @® Anpassung von CP/M in Verbindung mit einer Z 80-Zusatzplatine 
in Vorbereitung 
($A9, $00..$85, $CE, $85,$06,,$AD, $EB,$03,$8D,$E3,$FF,$20,$68,$FF,$AD © anschlußfertig im Gehäuse DM 1090,— 
‚$sc6,$FF ,$D$,$96,$8E,$EA,$93,$4C,$4F,$FF,$48,$20,$C1,$FF,$AD, $EB 
‚$s03,$6A,$B®,$34,$68,$8D,$92,$C9,$8D,$05,$C9,$85,$07,$A9,$088,$85 - 
"SCF.$AB.$00 SAD. $ES.$FF.$C9, $PF.$D9.$99,3ED. 802,500, FED. $04,$cH Festplatten für Apple Il (//e) 
‚$AC,$97 ,$8C,$B1,$CE,$91,$06,$88,$D9,$F9,$A9, $00,$8D, $EA,$03, $8D @ 5'/4 Zoll-Format (Slimline) 
‚502 ,$C9 ,‚$8D ,$94,$C9, $ac, 390 ,$6C,$68,$8D,$03,$C9,$8D, $04,5C9,$85 ® Booten direkt von der Festplatte in DOS 3.3, UCSD-Pascal, 
‚$CF,$A9,$08,$85,$07,$40,$31,$FF,$A2,$01,$A9, $09,$8D, $BF,$FF,$AD PRODOS und CP/M 2.2 / 3.0 
‚SEß,$03 ,5C09 ,$0B,$18,$0E.,$0A, $0A,$0A, $0A, 509, $08,$18, $6D,$EL, $03 @ Gemischtbetr. mit 35/40/80/160 Track-Drives 
‚$8D, $Ch,$FF,$60,$C9, $OF,$Fß,$10,$C9, $PE, $FO,$19,$C9,$0D.$Fß.$1B @ Copy- und Install-Programme im Lieferumfang 
‚$C9,$0C,3F9,$07,$C9,$0B,$DP, $1E,$8E,$BF,$FF,$A9,$D9,$4C,$7C,$FF ® Umfangreiches Manual 
‚$A9, $EB,$4C,$7C0,$FF,$AD,$E1,$03,$C9, $OF,$D9,$05,$A9,$03,$4C,$89 ® z.B. 10 MB incl. Netzteil u. Contr., 
‚$SFF,$A9,$Fß,$4C,$7C,$FF,$A9, $00,$8D,$BF,$FF,$8D,$C0,$FF,$69,$0p anschlußfertig an Ihren Apple DM 3380,- 
‚$09,$AD,$C0,$FF,$29,$Fß,$C9,$DB,$Fß,$01,$6%,$AD,$BF,$FP,$Fß,$BC 
a ann Denn nn 640 KByte-Drives für Apple Il (//e) 
@ 5'14- od. 312-Zoll-Format (Teac FD55/35-F) 
MoveDriver: Array [1.,52] of Byte = @ FD55-F umschaltbar auf 40 Track (Apple kompatible) 
®@ Installationssoftware für DOS 3.3, UCSD-Pascal, CP/M 2.2, 
($8D,$09,$C9,$A9,$09,$85,$00,$A9,$90,$85,$01,$A9,$09,$85,$02,$A9 CP/M 2.23 (60K), PRODOS, AP22, ALS CP/M+ 
‚SFF,$85,$03,$AD,$8B,$C9,$AD,$8B,$CQ,$AE,$33,$95,$AP,$00,$B1,$00 @ Umfangreiches Handbuch 
‚$91,$02,$88,$D$ ,$F9, $E6 ,$01,$E6,,$63 ,5CA ,$D9, $F2,$8D,$08, $Ch, $AD ® Anschlußfertige Auslieferung incl. Contr. und 2 Drives 
‚581,$c0,$60,$61); ® Diskstation 5511 (2 Teac FD55-F, 1.2 MB) DM 1350,— 
® Diskstation 35ll (2 Teac FD35-F, 1.2 MB) DM 1478,— 
Formatter: Array [1.:117] of Byte = s Ei 
80 Zeichen + 64 K für Apple //e 
($8D,$05,$C00,$49,$08,$85,$CF,$A9,$P0,$85,$CE,$A2,$88,$29,$66, $99 ® und jetzt hinsetzen DM 138 
‚$49,$03,$85,$CF,$49,$99,$85,$CE,$A2,$01,$29,$66,$99,$AD,$8B,$C® J a er Se y— 
‚$AD,$8B,$C9,$49,$D9,$85,$CF,$4A9,$®,$85,$CE,$A2,$19,929,$66,$99 
‚SAD, $8B,$C9,$AD,$8B,$C9,$20,$3F,$99,$AD, $83,$C9,$AD,$83,$C9, $8D 
‚$69,$00,$A9,$D8,$85,$CF,$A9,$00,$85, $CE,$A2,$19,$20,$66,$99,$A9 2000 HAMBURG 76 
‚$Eß,$85,$CF,$4A9,$00,$85,$CE,$A2,$1F,$29,$66,$99,$8D,$ß4,$C9,$AD 
‚$81,$C9,$8D,$ß8,$09,569,$AP,$00,$A9,$E5,$91,$CE, 588, $D9,$FB, $E6 Far 
‚SCF,$CA,$DP,$F6,$6ß); » si 040/ 225676 
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zusammengestellt von Ulrich Stiehl 


Die nachfolgende Chronik be- 
schreibt die wichtigsten Ereignisse 
der Mikrocomputer-Ära unter be- 
sonderer Berücksichtigung der 
Apple-Computer-Entwicklung. Die 
zeitliche Zuordnung ist nicht immer 
problemlos, da zwischen der An- 
kündigung und dem Erscheinen ei- 
nes Mikrocomputers Monate, bei 
den Prozessoren sogar Jahre ver- 
streichen können. Hinzu kommt 
noch der „Time-Lag“ zwischen 
Amerika und Europa (in der Regel 
sechs Monate). Beispielsweise ist 
der 65816 angeblich bereits 1983 
entwickelt worden, Doch bis Mitte 
1985 hatte offenbar noch keine Fir- 
ma diesen Prozessor eingesetzt. 


1964 


BASIC: Die Programmiersprache 
„BASIC“ („Beginner’s All-purpo- 
se Symbolic Instruction Code“), 
die später zur meistbenutzten Mi- 
krocomputersprache werden soll, 
wird von John G. Kemeny und 
Thomas E. Kurtz für Großanlagen 
entwickelt. 


1968 


Pascal: Die Programmiersprache 
„Pascal“, die später zur wichtig- 
sten Mikrocompuiersprache für 
den Ausbildungsbereich werden 
soll, wird von Niklaus Wirth in An- 
lehnung an Algol konzipiert und 
1970 erstmals auf einem Groß- 
rechner implementiert. 


1971 


4004: Intel entwickelt den 4-Bit- 
Prozessor „4004“. Ähnliche 4-Bit- 
Prozessoren findet man heute 
noch in vielen Industrie- und Haus- 
haltsgeräten, z.B. in Waschma- 
schinen, Taschenrechnern usw. 


1973 
8080: Intel konstruiert den 8-Bit- 
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Prozessor „8080”, der später als 
Vorläufer zum Z80 gelten wird. 


1974 


CP/M: Gary Kildall konzipiert als 
Berater von Digital Research die 
Urversion von „EP/M" (= „Con- 
trol Program for Mlicroproces- 
sors“), eines der in den nachfol- 
genden Jahren meistbenutzten 
Betriebssysteme auf 8080- bzw. 
Z80-Basis. 


1975 


6502/Z80: In diesem Jahr entste- 
hen die zwei wirtschaftlich wichtig- 
sten 8-Bit-Prozessoren, nämlich 
der „Z80“ von Zilog und der 
„6502" von MOS Technology, ei- 
ner von ehemaligen Motorola-Mit- 
arbeitern gegründeten Firma, die 
später von Commodore übernom- 
men werden wird. Von Motorola 
stammt in jener Zeit der wenig be- 
deutsame „6800“ als Vorläufer 
zum späteren „68000“, 

Allgemein sei hier angemerkt, daß 
das Schicksal der verschiedenen 
Prozessoren selten richtig progno- 
stiziert wird. Als einer der besten 
8-Bit-Prozessoren gilt beispiels- 
weise der „6809", doch wird er 
fast nie eingesetzt (Ausnahme z.B. 
„Dragon“). Ein ähnliches Schick- 
sal ereiit den 16-Bit-Prozessor 
„Z8000" von Zilog, der praktisch 
nie verwendet wird. 


KIM: Ferner werden in dieser Zeit 
die ersten Bausätze bzw. Einplati- 
nencomputer („Kits“) konstruiert, 
z.B. der berühmte „KIM“ (= „Key- 
board Input Monitor”) auf 6502- 
Basis. Das Nachfolgemodell 
„AIM“ istnoch heute von Rockwell 
erhältlich. 


Mikrocomputer-BASIC: Bill Gates, 
der Begründer von Microsoft, 
schreibt 1975 den ersten BASIC- 
Interpreter für Mikrocomputer. Die 


Firma Microsoft wird in der Folge- 
zeit zum größten Programmier- 
sprachen- und Betriebssystem- 
Lieferanten für die Mikrocomputer- 
Industrie. 


Während das Integer-BASIC des 
alten Apple Il noch von Steve Woz- 
niak selbst entwickelt wird, ist „Ap- 
plesoft“ ein um Hires-Routinen er- 
weitertes Microsoft-BÄSIC, das et- 
wa Mitte 1978 zunächst als „Ap- 
plesoft I“ und später als „Applesoft 
I" auf Kassette, Diskette oder 
Sprachkarte geliefert werden wird. 
Was man heute als „FPBASIC" 
von der System-Master-Diskette 
her kennt, ist bereits mit der ROM- 
Applesoft-Version des II+/e iden- 
tisch, also nicht mit dem in den 
unteren 48K-Bereich einzuladen- 
den alten „Applesoft II" zu ver- 
wechseln. 


1976 


Apple I: Eine völlig unbekannte 
„Garagenfirma“ namens Apple 
wird von Steve Jobs und Steve 
Wozniak im April 1976 gegründet. 
Wozniak, der das College verlas- 
sen und vorübergehend bei Hew- 
lett Packard gearbeitet hat, ist ge- 
rade 25 Jahre alt. Der etwas jünge- 
re Steve Jobs, der kurze Zeit bei 
Atari angestellt gewesen ist, hat 
ebenfalls nie sein Studium been- 
det und ist mehr am Geldverdie- 
nen denn an der Technik interes- 
siert. Jobs gilt als „Antreiber“ und 
Wozniak als „Arbeiter“. 


Ende 1975 erblickt der 6502-Bau- 
satz-Computer namens „Apple I" 
das Licht der Welt. Es werden je- 
doch nur einige hundert Exemplare 
verkauft, da Jobs vorausschauend 
auf eine professionellere Weiter- 
entwicklung mit Gehäuse und Ta- 
statur drängt. Die Garagenfirma 
Apple bietet den bereits gestande- 
nen Firmen HP und Atari die Ent- 
wicklung eines Personal-Compu- 
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ters an: ohne Erfolg, denn niemand 
erahnt damals den kometenhaften 
Aufstieg von Apple. 


TI-59: Von Texas Instruments wird 
der „Tl-59” entwickelt, der in den 
nachfolgenden Jahren zu dem 
meistbenutzten programmierbaren 
Taschenrechner werden wird (bis 
zur Produktionseinsiellung 1983). 
Ähnlich erfolgreich ist der HP-41 
von Hewlett Packard. Neben die- 
sen anspruchsvollen wissen- 
schaftlich-technischen „Pocket- 
Computern“ macht die seit 1976 
einsetzende Flut billiger Taschen- 
rechner (u.a. von Commodore und 
später namentlich von japanischen 
Produzenten wie Sharp usw.) dem 
Rechenschieber, der Logarithmen- 
tafel und anderen Rechenhilfsmit- 
teln den Garaus. Die ersten Mikro- 
computer-Zeitschriften sind noch 
überwiegend den programmierba- 
ren Taschenrechnern gewidmet. 
Das „Kopfrechnen” wird zu einer 
nur noch von wenigen Schülern 
beherrschten Fähigkeit verküm- 
mern. Dafür wird in der Schule die 
„Mengenlehre“ eingeführt, von 
der man sich jedoch Ende 1984 
wieder distanziert. 


5,25-Disk-Drive: Shugart entwik- 
kelt das erste 5,25-Zoll-Disk-Drive 
(für „flexible Platten“ = „floppy 
discs“), das später die Grundlage 
der Apple-Diskettenlaufwerke wer- 
den soll. Die noch heute üblichen 
„DISK IIl"-Laufwerke (140K) er- 
scheinen jedoch erst Mitte 1978. 
Die Urversion des dazugehörigen 
Betriebssystems heißt „DOS 3" 
bzw. „DOS3.1“ und wird von Steve 
Wozniak und Randy Wiggington 
entwickelt. Wozniak konstruiert 
den Controller und schreibt die 
Nibble-Routinen, während der 
File-Manager von Wiggington 
stammt. Die letzte und noch heute 
übliche Version „DOS 3.3” er- 
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scheint im Herbst 1980. Anfang 
1984 wird „DOS 3.3" durch „Pro- 
DOS“ ersetzt werden, ein UNIX- 
ähnliches Betriebssystem mit hier- 
archischer Directory-Struktur. 


1977 
Apple Il: Im April wird der 6502- 
Rechner „Apple II" in dem noch 


heute üblichen beige Plastikge- 
häuse mit Integer-BÄSIC im ROM 
in der Grundversion mit AK RAM 
(!), jedoch bereits ausbaufähig auf 
48K RAM, vorgestellt. Als 
Datenspeicher dient ein externer 
Kassettenrecorder, als Drucker ein 
ausgedienter Fernschreiber. 

Die Entwicklung des Apple II fällt in 
die zweite Jahreshälfte von 1976. 
Zu diesem Zeitpunkt wird auch 
Mike Markkula, der zuvor Marke- 
ting-Manager bei Intel gewesen ist, 
als kaufmännischer Leiter einge- 
stellt, der nach seiner Pensionie- 
rung von John Sculley, vormals 
Manager in der Getränke-Industrie 
(Pepsi-Cola), Ende 1983 abgelöst 
werden wird. 

Zu den technischen Helfern der 
ersten Stunde gehören Allen 
Baum (u.a. Monitor-ROM, Slot- 
Konzept), Randy Wiggington (u.a. 
DOS 3.3), Rod Holt (u.a. Netzteil) 
und Chris Espinosa, der das „Red 
Manual" und später das „Techni- 
cal Reference Manual“ schreiben 
wird. 

Vom Apple Il und dem späteren 
Apple II+ (Mitte 1978) werden bis 
Mitte 1983 insgesamt über 1 Mil- 
lion Exemplare verkauft worden 
sein. Nimmt man noch den Apple 
Ile (Anfang 1983) und den Apple 
lc (Mai 1984) hinzu, so gilt der 
Apple Il in all seinen Spielarten als 
der einzige Mikrocomputer, der die 
ersten 10 Jahre der Mikrocompu- 
ter-Ära mit hohem Verkaufserfolg 
überdauert, was auf sein unge- 
wöhnlich flexibles Konzept zurück- 
zuführen ist. 


PET: Fast gleichzeitig mit dem Ap- 
ple Il wird der „PET“ von Commo- 
dore — ebenfalls ein 6502-Mikro- 
computer — vorgestellt. Beim PET 
ist der Kassettenrecorder direkt 
eingebaut. Weitverbreitete Nach- 
folgemodelle zum PET sollten spä- 
ter die Rechner der 4000er und 
8000er Serie werden. 

Andere Mikrocomputer der ersten 
Stunde stammen von den Firmen 
Ohio Scientific („OSI", 1977), 
North Star („Horizon", 1977), Tan- 
dy Radio Shack („TRS-80", 1977) 
und Exidy („Sorceror", 1978), von 
denen man jedoch inzwischen — 
mit Ausnahme von TRS - nichis 
mehr hört. 
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Dreiergestirn: Verallgemeinert 
kristallisiert sich in der Anfangszeit 
der Mikrocomputer-Ära das zu- 
nächst gleichwertige Dreiergestirn 
Apple-Tandy-Commodore heraus. 
Commodore hat jedoch bald 
Schwierigkeiten auf dem amerika- 
nischen Markt und verlagert des- 
halb vorübergehend seine Aktivitä- 
ten nach Europa, wo es allmählich 
zum Marktführer wird. Wegen ei- 
ner verfehlten Modellpolitik gerät 
Tandy ins Hintertreffen und muß in 
den USA schon früh die Marktfüh- 
rerschaft an Apple abtreten, das 
seine Führungsrolle bis zum Ein- 
tritt von IBM in den PC-Markt be- 
hauptet. 

Für das aktuelle Bilanzjahr 1984/ 
85 gilt in den USA die Reihenfolge 
1.1BM 

2. Apple 

3. Commodore, 

während in Deutschland die umge- 
kehrte Reihenfolge gilt 

1. Commodore 

2. IBM 

3. Apple. 


68000: Motorola beginnt 1977 mit 
der Entwicklung des 16-Bit-Pro- 
zessors „68000, der jedoch erst 
1979 auf den Markt kommen und 
später in zahlreichen Home- und 
Personal-Computern eingesetzt 
werden wird (z.B. Amiga, Macin- 
tosh). 


1978 


Apple Il+: In Verbindung mit den 
Mitte 1978 ausgelieferten Disk-II- 
Laufwerken wird der Apple Il mit 
einem „Autostart-ROM" verse- 
hen, das zum automatischen Boo- 
ten von DOS erforderlich ist. Au- 
Berdem wird anstelle von Integer- 
BASIC das Applesoft-BASIC im 
ROM geliefert. Der im Übrigen un- 
veränderte Apple Il wird in „Apple 
II+" oder „Apple II Plus” umbe- 
nannt, 


UCSD-Pascal: Es werden erste 
Mikrocomputer-Versionen von 
„VCSD-Pascal“ konzipiert, z.B. 


Apple-Pascal 1.0, das dann 1979 
erscheint und kurz darauf durch 
Version 1.1 sowie 1983 durch Ver- 
sion 1.2 abgelöst werden wird. 
Überhaupt hat Apple bei mehreren 
Mikrocomputer-Programmierspra- 
chen die Nase vorn, z.B. bei Logo 
(1982). 


Wordstar: Micropro arbeitet an ei- 
nem CP/M-8080-Programm  na- 
mens „\Wordmaster“, später 
„Wordstar“ genannt, das zu dem 
meistbenutzten Textverarbei- 
tungsprogramm der nächsten Jah- 


re werden sollte. Für den Apple 
selbst wird jedoch der „Applewri- 
ter" von Paul Lutus zum bekannte- 
sten Textprogramm, dessen Ur- 
version 1.0 im Jahre 1978 entsteht 
und später durch die Versionen 1.1 
und 2.0 abgelöst werden wird. 


MX-80: Die japanische Firma Ep- 
son kündigt den Drucker „MX-80" 
an. Dieses Modell und die Weiter- 
entwicklungen MX-82, FX-80 usw. 
werden sich in der Folgezeit zu 
den meistgekauften Matrixdruk- 
kern entwickeln, wie überhaupt ja- 
panische Firmen den Drucker- 
markt beherrschen werden. 


8086: Von Intel wird der 16-Bit- 
Prozessor „8086“ angekündigt, 
der später in zahlreichen „MS- 
DOS“-Rechnern (MS = Microsoft) 
der gehobenen Preisklasse Ver- 
wendung finden wird. 


1979 


Visicalc: Dan Bricklin von Soft- 
ware Arts (später Visicorp) entwik- 
kelt ein innovatives Programm na- 
mens „Visicalc”, zunächst für den 
Apple Il und danach für eine Viel- 
zahl anderer Mikrocomputer. Visi- 
calc gilt als eines der genialsten 
und im übrigen wirtschaftlich er- 
folgreichsten „Tabellenkalkula- 
tionsprogramme". Alle nachfol- 
genden „Visi-Clones" wie „Multi- 
plan“ von Microsoft usw. sind nur 
Nachahmungen und Erweiterun- 
gen der ursprünglichen Tabelleni- 
dee. Visicorp wird später (Mai 
1985) aus „Marktbereinigungs- 
gründen“ von Lotus aufgekauft 
und dann aufgelöst werden. 


dBASE: Wayne Ratliff entwickelt 
ein CP/M-Z80-Programm namens 
„Yulcan“, das später unter dem 
noch heute üblichen Namen 
„dBASE II" von Ashton-Tate ver- 
marktet wird und sich als eines der 
wichtigsten Datenbankprogramme 
für Mikrocomputer erweisen sollte. 
Inzwischen gibt es dBASE || una II 
für eine Vielzahl von Rechnern und 
Betriebssystemen (beim Apple II 
unter CP/M). 


1980 


ZX80: Sinclair kündigt den Z80- 
Rechner „ZX80" an. Dieses Mo- 
dell und die Nachfolgemodelle 
ZX81, Spectrum usw. machen als 
Billigst-Homecomputer die Mikro- 
computertechnik auch für Schüler 
erschwinglich. 1985 gerät Sinclair, 
nachdem der neue 68008-Rech- 
ner „QL“ („Quantum Leap") an- 
gekündigt worden ist, in finanzielle 
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Schwierigkeiten und wird von ei- 
nem britischen Zeitungsverleger 
übernommen. 


VC20: Eine noch größere Verbrei- 
tung als der ZX80 erreicht der 
ebenfalls 1980 vorgestellte 6502- 
Rechner „VC20" von Commodo- 
re, von dem bis Anfang 1983 be- 
reits über 1 Million Exemplare ver- 
kauft sein werden. Mit diesem Mi- 
krocomputer und dem späteren 
„C64" zementiert Commodore 
seine Vorherrschaft auf dem Hob- 
by- und Homecomputer-Sektor. 


Apple Ill: Der 6502-Rechner „Ap- 
ple III", der im Mai 1980 vorgestellt 
wird, soll das Nachfolgemodell 
zum Apple Il werden. Anfängliche 
Hardware-Mängel führen zu um- 
fangreichen Umtauschaktionen. 
Danach wird der Apple Iil nur noch 
wenig gekauft und im Herbst 1984 
eingestellt. 


Z80-Softcard: Microsoft entwik- 
kelt die „Z80-Softcard“ für den 
Apple Il sowie eine angepaßte CP/ 
M-Version (in Sublizenz von Digital 
Research). Ferner entwickelt Videx 
eine 80-Zeichenkarte namens „Vi- 
deoterm“ für den nach wie vor oh- 
ne 80-Zeichendarstellung ausge- 
lieferten Apple II+. Da nunmehr 
auch CP/M-Programme wie 
dBASE und Wordstar „gefahren“ 
werden können, erlebt der Apple Il 
in der Folgezeit seine größte 
Wachstumsperiode. Gleichzeitig 
beginnen „Nachbauer” aktiv zu 
werden. Zunächst werden nur Zu- 
satzkarten „abgekupfert”, später 
der Apple-II-Computer selbst. 


1981 


Wozniak-Unfall: Im Februar hat 
Steve Wozniak einen Flugzeugab- 
sturz mit seiner eigenen Sportma- 
schine und zieht sich nach einem 
längeren Krankenhausaufenthalt 
aus dem Tagesgeschäft bei Apple 
zurück und nimmt vorübergehend 
ein wirtschaftswissenschaftliches 
Studium auf. 


Osborne 1: Adam Osborne, der 
jahrelang unter seinem Namen BüÜ- 
cher schrieb und schreiben ließ, 
entwickelt den ersten tragbaren 
Mikrocomputer namens „Osborne 
1" auf Z80-Basis. Nach anfängli- 
chen Erfolgen muß die Firma je- 
doch im Herbst 1983 Konkurs an- 
melden. Zu diesem Zeitpunkt gerät 
auch die Firma Sirius, deren 
gleichnamiger Mikrocomputer von 
„Chip" noch als „Computer des 
Jahres“ apostrophiert wird, in wirt- 
schaftliche Bedrängnis. 
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Ikonen und Maus: Xerox entwik- 
kelt im Palo Alto Research Center 
(= PARC) einen Rechner namens 
„Star“, der wohlgemerkt kein PC, 
sondern ein Computer in der 
200.000-DM-Preisklasse ist. Neu- 
arig am „Star“ ist die „Benutzer- 
schnittstelle“, die sich durch die 
Verwendung symbolhafter Bilder 
(„Ikonen“) und eines Zeigegerä- 
tes („Maus“) auszeichnet. Damit 
soll dem EDV-unkundigen Laien 
der Umgang mit der EDV-Anlage 
erleichtert werden. Diese Bilder- 
sprache wird später die Grundlage 
des Finder- und des GEM-Be- 
triebssystems werden. Den Finder 
wird man in den Computern Lisa 
und Mac von Apple antreffen, und 
den wesentlich später entwickelten 
bzw. „abgekupferten“ GEM (= 
Graphics Environment Manager) 
wird man in Rechnern der Firma 
Digital Research finden, die dann 
im Herbst 1985 wegen Plagiats in 
die Zahlung von Lizenzen an die 
Firma Apple einwilligt. 


PC: IBM steigt im Spätherbst 1981 
mit dem 8088-Mikro „PC“ in das 
Mikrocomputer-Geschäft ein, 
nachdem zuvor Microsoft das 
„MS-DOS“ (später PC-DOS) als 
Auftragsproduktion für IBM entwik- 
kelt hat. Obwohl der „PC" tech- 
nisch so schlicht wie sein Name 
ist, wird er rasch vom kommerziel- 
len Anwender (Büros in Industrie- 
firmen) akzeptiert. Bis Ende 1984 
gibt es dann noch ein Kopf-an- 
Kopf-Rennen zwischen IBM und 
Apple auf dem amerikanischen 
Markt. 1985 setzte sich IBM jedoch 
klar als Marktführer mit neuen Mo- 
dellen wie „PC-XT" (noch 8088) 
und „PC-AT" (80286) durch. Ne- 
ben dem „Apple Il" gehört der 
„PC“ zu den am meisten nachge- 
bauten Mikrocomputern. 


1982 


Franklin-Prozeß: Franklin bringt 
einen Computer namens „Ace“ 
als einen Apple-Il-Nachbau heraus 
und verwickelt sich in der Folgezeit 
in einen fast zweijährigen Urheber- 
rechtsprozeß mit der Firma Apple 
wegen der Kopie des Monitor- 
ROMs und zahlt schließlich nach 
einem außergerichtlichen Ver- 
gleich 2,5 Mill. Dollar Schadener- 
satz. Danach verschwindet Fran- 
klin von der Bildfläche. 


Basis-Prozeß: Ähnlich uneraquick- 
lich ist die Situation für die Firma 
Basis in Münster, die ursprünglich 
Alleinauslieferer für Apple in 
Deutschland ist und infolge eines 
Urheberrechtsprozesses in Sa- 
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chen Micropro-Basis wegen einer 
exorbitanten Schadenssumme 
Konkurs anmelden muß. 


C64: Commodore bringt als Nach- 
folgemodell zum VC20O den „C64" 
heraus, der besonders in Europa 
eine große Verbreitung erreichen 
wird. 


Integrierte Software: Lotus kün- 
digt „1-2-3" für den IBM-PC an, 
das als integriertes Programmpa- 
ket quasi Visicalc, Visiplot und Visi- 
file in einem darstellt. In den dar- 
auffolgenden Jahren werden wei- 
tere integrierte Software-Pakete 
(z.B. 1984 „Symphony") als „Uni- 
versallösungen“ auf den Markt ge- 
bracht. Man wird jedoch im Jahre 
1985 erkennen, daß Programme, 
die „alles in einem" bieten, sich für 
„alle und keinen“ eignen. 


1983 


Lisa: Apple stellt anläßlich der 
Jahreshauptversammlung im Ja- 
nuar den 68000-Rechner „Lisa“ 
mit Maus und Ikonen als die größte 
„Revolution“ in der Mikrocompu- 
ter-Geschichte vor. Der hohe Preis 
(anfangs ca. 30.000,- DM, später 
ca. 18.000,-) und die fehlende 
Großrechner-Kompatibilität 
schreckt jedoch viele Firmen vom 
Kauf ab, so daß die Lisa Anfang 
1985 wieder aus dem Produktions- 
programm genommen werden 
wird. 


Apple Ile: Änfang 1983 erscheint 
außerdem der „Apple lle" (e = 
extended), der sich gegenüber 
dem Apple Il und Ii+ durch eine 
Verbesserung des Motherboards, 
eine DIN-Tastatur und eine 80-Zei- 
chenkarte auszeichnet, so daß 
nunmehr Textverarbeitung ohne 
zusätzliche Hardware möglich ist. 


MSX: In Verbindung mit japani- 
schen Firmen kündigt Microsoft 
das sog. „MSX-Standard-BASIC“ 
für Homecomputer auf Z80-Basis 
an. Doch weder in den USA noch 
in Europa wird dieser Standard 
übernommen werden (MSX = Mi- 
crosoft Super Extended). 


65816: Western Design Center 
entwickelt den 16-Bit-Prozessor 
„65816, doch geht er erst im 
Herbst 1985 in Produktion. Wegen 
der Kompatibilität zum 6502 wird 
der 65816 sowie die zum 6502 
pin-kompatible Spezialversion 


65802 für alte 6502-Rechner noch 
große Bedeutung erlangen. 


Turbo-Pascal: Borland kündigt 
„Turbo-Pascal*“ für den IBM-PC 
und später für GP/M-Rechner an. 
Infolge des ungewöhnlich niedri- 
gen Preises erlangt es rasch eine 
große Verbreitung. Microsoft muß 
lernen, daß gute Programmierspra- 
chen auch billig sein können. 


1984 


Macintosh: Im Januar stellt Apple 
den 68000-Rechner „Macintosh" 
als abgemagerte Version der be- 
reits kränkelnden Lisa vor. Wegen 
des „geschlossenen Konzepts 
(zunächst keine Slots, keine tech- 
nische Dokumentation und keine 
apple-eigenen Programmierspra- 
chen) erscheinen anfangs nur we- 
nige fremde Soft- und Hardware- 
Produkte, und der Verkauf bleibt 
erheblich hinter den Erwartungen 
zurück. Nach einem Jahr kündigt 
sich ein Preisverfall an: Der „Fat 
Mac“ von Ende 1985 ist billiger als 
der „Thin Mac" von Anfang 1984. 
Universitäten werden zu Sonder- 
preisen beliefert, weshalb der 
Macintosh dort mehr Verbreitung 
findet als im ursprünglich anvisier- 
ten Bürobereich, Ende 1985 um- 
faßt der deutsche Mac-Club als 
Ableger der AUGE etwa 150 Mit- 
glieder. Die Zahl der Macintosh- 
Käufer selbst ist allerdings erheb- 
lich größer, doch muß man nicht 
nur der Firma Apple, sondern auch 
der Presse anlasten, daß noch bei 
keinem anderen Gerät derart 
„großkotzig“ übertrieben wurde. 


Apple lic: Im Mai 1984 wird der 
65C02-Mikrocomputer „Apple lic 
(c = compact), der sich vom Apple 
Ile durch das Fehlen der Slots auf 
der einen und die Integrierung ver- 
schiedener Zusatzkarten auf der 
anderen Seite auszeichnet, in ei- 
ner von vollem Optimismus ge- 
prägten Werbeshow präsentiert. 
Dieses „Mir-gehört-die-Welt"-Ge- 
baren („aut malum aut nihil") äu- 
Bert sich noch bis zum Jahresende 
auf verschiedenen Messen. So 
wird etwa anläßlich der Orgatech- 
nik-Messe in Köln anstelle eines 
Großstandes gleich eine ganze 
Halle gemietet. 


1985 


Apple-Querelen: Nicht das Or- 
well-Jahr 1984, sondern das Jahr 
1985 wird für die meisten Mikro- 


computer-Hersteller zum Horror- 
Trip. Von den zwei- bis dreistelli- 
gen Zuwachsraten der vergange- 
nen Jahre verwöhnt, fahren jetzt 
viele Firmen satte Verluste ein. Der 
Pleite-Geier kreist über dem Sili- 
con-Valley, Nach dem ersten 
Quartal häufen sich die Meldungen 
über Kurzarbeiten, Entlassungen, 
Betriebsstillegungen und Kon- 
Kurse. 

Die Firma Apple, die 1935 keinen 
neuen Computer herausbringt, 
wird besonders gebeutelt (mehre- 
re Werksschließungen). Steve 
Wozniak, der seit seinem Flug- 
zeugunglück keinen leitenden Po- 
sten mehr übernommen hatte, ver- 
läßt wegen Meinungsverschieden- 
heiten über die Weiterentwicklung 
des Apple Il im Februar die Firma 
Apple. Steve Jobs wird Mitte des 
Jahres von John Sculley seiner 
Entscheidungsbefugnisse für die 
Macintosh-Division enthoben und 
verkündet im September sein Äus- 
scheiden aus der Firma Apple. 
Jobs-gründet noch Ende Septem- 
ber eine „Gegenfirma” namens 
„Next" („The Next Apple"), die 
Konkurrenzprodukte für den Uni- 
versitätsbereich entwickeln will, 
Wie seinerzeit gegen den Nach- 
bauer Franklin (1982) kündigt Ap- 
ple ein Gerichtsverfahren gegen 
Jobs an, nunmehr jedoch wie bei 
einem Scheidungsprozeß „in Sa- 
chen Apple gegen Apple”. 


Amiga/512 ST: Ende 1985 erre- 
gen zwei neue, ungewöhnlich 
preiswerte 68000-Mikrocomputer 
in der 2000-3000-DM-Preisklasse 
Aufsehen, nämlich der „Amiga“ 
von Commodore und der „12 
ST" von Atari. Ob man diese ris- 
kante Tiefstpreispolitik durchste- 
hen wird, muß das Jahr 1986 er- 
weisen. 


Und 1986? 


Für 1986 werden zwei Neuheiten 
erwartet: 

1. Nachfolgemodell zum Apple Ile 
auf 65816- bzw. 65802-Basis mit 
partieller Kompatibilität zum alten 
Apple Ile. 

2. Nachfolgemodell zum Macin- 
tosh unter Wiederbelebung des 
Slot-Konzepts. 
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Peeker 12/85 


DAS 
APPLE Il 
PHANDEUCH 


Die rasche Orientierung für APPLE 
Iiplus, IIe, IIc 


Schnelle Antwort auf Älltagsfragen am APPLE II — 
leicht nachzuschlagen, praxisbezogen, für IIplus, Ile, Ic 
innur 1 Buch! 

Unterschiede Ilplus/lle, DOS 3.3/ProDOS, E/ A-Inter- 
facekarten/Ports, 40/80 Zeichendarstellung, US/DTS- 
Tastatur, 48K/128K Systeme etc. 
Grafik/Soundmöglichkeiten, eine der APPLE-Stär- 
| ken, in stark erweiterter Beschreibung. 

| Ä N® | Kurzführer „Steckkartenerweiterungen“ mit Fotos; 
dir 1 ee „„ofortbetrieb von Disketten/Cassettengeräten“; 
„Druckerbetrieb“; „Direktbefehle“; „Tastaturbedienung“etc. 


Il] 
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Backgroundwissen: BASIC für Beginner/Professionelle; MC/BASIC-Kombination; MC- 
Entwicklung mit MONITOR/MINIASSEMBLER; APPLE-PASCAL-BS; 
Disketten/Plattenspeicherung; Dateiformate etc. 

Ausführlicher Anhang zu Editor, Speicherbelegung, Codes des 
APPLESOFT-Interpreters etc. 


DAS APPLE IT HANDBUCH für ewi VerlsecmbH 


@ 
Ilplus, He, Ic, 472 Seiten, ee j 
Softcover, DM 66,- 8000 München 40 weil 


Weiterführende Literatur... 


Reparaturanleitung Computer: EU ar | 

Aprple II, Iplus fin wu Jeder kann programmieren 

Einzigartige Serviceunterläge für Reparatu- | tra (Daniel Watt) 

ren und Entwicklungsarbeiten am Apple Il, | am I Buch des Jahres in den U SA. Für die 

Enthält Schaltpläne, Bauteile- und Ver- [_ all Computer APPLE Il, C-64, IBM PC, 

gleichstypenliste; Prüfpunkte mit Oszillo- I. ATARI bis 520 ST., TI-99 und Schneider 

grammen der Signalformen, Logiktabellen, mn CPCs. 

Spannungsangaben; schnelle Servicetests; |% | 4 Hochwertiges Textbuch für Logo-Kurse 
| Anleitung zur systematischen Fehlersuche. | Fi für zu Hause und im Lehrbereich. 

In A4-Mappe, DM 29,80 Ki } 384 Seiten, A4, DM 59,- 


APPLE II - Bewegte 3D-Graphik man .nunreman | Apple Maschinensprache 

(Phil Cohen) - Für BASIC-Programmierer der einfachste 
Selbstentworfene Graphiken und Dia- ne ng] Zugang zur Muttersprache des Apple, Wesent- 
gramme - animiert oder als Standbilder — Def 2 lich schnellere Maschinenprogramme, direkte 
eben oder räumlich: alle erforderlichen era]. Manipulation des Mikroprozessors 6502 im 
BASIC-Programme mit Erklärung finden awiss de el Apple — als Brücke dorthin benötigt dieses 
Sie in diesem Buch. “Er AA Buch nur die drei BASIC-Befehle, POKE. 
200 Seiten, Softcover, DM 49,- Fe An CALL, PEEK. D. Inman’K. Inman. DM 49, — 


Erstes deutsches Referenzwerk sämt- 
licher Befehle und Systemroutinen von 


APPEEWORKS FAPBEEI. Ne,lle AFFE - Apple II, IIplus, Ile 
Elektronischer Schreibtischmanager FASCAL APPLE I PASCAL Ag 
Dieses Programmsystem vereinigt die us Betriebssystem, 272 S., DM 49,- © 
Funktion Texterstellung, Datenarchivie- Sprache, 216 3 DM 39 
rung. Formblattkalkulation, Datenfern- Ar | Pascal 1.2 Addendum, 112 S., DM 36.- 
übertragung. Das System mit den höch- 
sten Verkaufsziffern. Sämtliche System/ Grundlagenbuch, Bestseller 
ee . P | Anwendungsfragen in 2 Bänden. Bei- APPLE TI PASCAL 
BOT LOR LANGE IK ZNETALA spiele aus der Wirtschaft u.u.m Eine praktische Anleitung, 


u je 264 Seiten, je DM 49,- | | 544 S, DM 59.- 
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Noch im Programm: In Vorbereitung: 

6502 - Programmieren in Assembler DM 59,- Macintosh Programmier-Handbuch 
VisiCalc, 50 Programme auf Diskette, DM 79,- mit Microsoft BASIC 2.0 DM 59,- 
Computer für Kinder, APPLE II, DM 29,80 














Pascal-Leserbriefe 


Zu dem Ergebnis des Pascal-Preisaus- 
schreibens (s. Heft 9/85, S. 58) sowie in 
diesem Zusammenhang zu Pascal 
selbst ging eine wahre Flut von Briefen 
ein, von denen wir nachfolgend eine 
Auswahl abdrucken. Allgemein möchte 
ich anmerken, daß der Peeker in Zu- 
kunft mehr Aufsätze über Pascal veröf- 
fentlichen wird, und zwar sowohl 
Grundlagenbeiträge wie der Einfüh- 
rungskurs in diesen Heft als auch Spe- 
zialbeiträge in der Art der „Tips und 
Tricks“-Serie von Dieter Geiß, die gro- 
Ben Zuspruch gefunden hat. 

Ihre Reaktion auf das Preisausschrei- 
ben zwingt mich, Ihnen reinen Wein 
einzuschenken. Von den seinerzeit ein- 
gereichten Lösungen war keine einzige 
Lösung korrekt. Die meisten Program- 
me hatten bereits die einfachsten Tests 
nicht überstanden. Aber auch die Pro- 
gramme von U. Allgeier und G. Müller 
laufen nicht völlig einwandfrei. Das Pro- 
gramm von U, Allgeier funktioniert nicht 
unter der 64K-Version von Pascal 1.2, 
und das Programm von G. Müller bringt 
den Editor gelegentlich zum Absturz, 
wenn man den konvertierten Textfile 
einlädt, Weder das Ällgeier- noch das 
Müller-Programm nehmen zudem auf 
die Blockorganisation des Pascal-Edi- 
tors Rücksicht, so daß man einen kon- 
vertierten Textfile normalerweise nicht 
direkt — ohne den Umweg über das 
vorherige Einladen in den Editor — com- 
pilieren kann. (Den gleichen Fehler hat 
auch das GETDOS-Programm von Die- 
ter Geiß aus Heft 1/1985, S. 70.) 

Nun stelle man sich einmal plastisch 
mein Dilemma vor: Hätte ich im Sep- 
tember-Heft verkündet, daß kein einzi- 
ger Gewinner ermittelt werden konnte, 
so hätten mir wohl einige Leser „Schie- 
bung“ unterstellt. Also mußte ich wohl 
oder übel wenigstens zwei „Lösungen" 
für die Hauptgewinne auswählen. Und 
wenn ich verärgert die Allgeier- „LÖ- 
sung“ auf 1/4 Druckseite zusammen- 
gequetscht habe, dann deshalb, weil ein 
nicht völlig fehlerfreies Programm kei- 
nen größeren Raum beanspruchen darf. 
Noch einen anderen Punkt, der in den 
nachfolgenden Leserbriefen aus Ihrer 
Sicht mit Recht kritisiert wird, muß ich 
aus einer ganz anderen Perspektive 
hier ansprechen. Mir war und ist be- 
wußt, daß die Kürze des Quelltextes 
kein sinnvolles Kriterium ist. Ich hatte 
jedoch noch den Berg mit den über 250 
Primzahl-Lösungen des damaligen 
Wettbewerbs lebhaft in Erinnerung, der 
mich 14 Tage lang in Beschlag genom- 
men hatte mit dem „Erfolg", daß das 
Januar-Februar-Heft zum Doppelheft 
umgemünzt werden mußte. Bei meiner 
extremen Arbeitsüberlastung mußte ei- 
ne inhaltliche Prüfung der Pascal-Quell- 
texte von vornherein ausgeschlossen 
werden, so daß ich also auch nicht ge- 
merkt hätte, ob in einem beliebig langen 
Listing irgendwo eine Peek-Poke-Routi- 
ne versteckt wurde. Meine Hoffnung, 
Peeks und Pokes durch die Vorgabe 
eines möglichst kurzen Quelitextes zu 
verhindern, erfüllte sich nicht. Änderer- 
seits wollte ich aber auch nicht den re- 
gulären Assembler zulassen, denn 
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sonst hätten nur lupenreine Ässem- 
blerprogramme eine Gewinnchance ge- 
habt, was nicht im Sinne eines Pascal- 
Wettbewerbs sein kann. Zudem gibt es 
auch hier wieder einen rein „arbeits- 
technischen" Grund, Wären beispiels- 
weise 250 Lösungen eingegangen, die 
dann unter Pascal 1.1 und 1.2 hätten 
nachvollzogen werden müssen, so wä- 
re ich tagelang mit dem Assemblieren, 
Compilieren und Linken beschäftigt ge- 
wesen. Und Sie hätten sich gewundert, 
warum das September-Heft vom 
Peeker so spät erscheint,,, Soviel aus 
einer ganz anderen Perspektive. Den 
grundgescheiten Argumenten in den 
Leserbriefen selbst habe ich nichts hin- 
zuzufügen. 

Ulrich Stiehl 


Leserbriefe 


In jedem Heft Pascal 

Ich glaube, der Erfolg des Peeker be- 
ruht darauf, daß er allen etwas zu bieten 
hat, und zwar in jedem Heft. Egal wel- 
che Interessen der jeweilige Leser hat, 
ob er in Applesoft programmiert, in Äs- 
sembler oder in Pascal, ob er ProDOS 
benutzt oder CP/M, in jedem Heft findet 
er einen Artikel, der ihn anspricht. 

Für Ihre weitere Arbeit würde das be- 
deuten, daß jeder dieser Teilbereiche 
weiterhin in jedem Heft behandelt wer- 
den muß. Für mich wäre es ein Grund, 
das Abonnement zu kündigen, wenn ich 
nicht in jedem Heft einen Artikel über 
Pascal finden würde! Ich kann deshalb 
auch nicht den Folgerungen von Herrn 
Stiehl aus der mangelhaften Resonanz 
auf das Pascal-Preisausschreiben zu- 
stimmen. Das geringe Interesse beruht 
meines Erachtens auf der Tatsache, daß 
es nur wenige Programmierer gibt, die 
sich für Pascal und ProDOS gleichzeitig 
interessieren. Wenn es nach mir ginge, 
dürfte die Berichtersiattung über Pascal 
ausgedehnt werden. 

Joachim Schneider, Siegburg 


Wettbewerbsregeln nur für Freaks 

In dem Artikel über das Pascal-Preis- 
ausschreiben beklagen Sie die geringe 
Teilnahme und leiten daraus den Schluß 
ab, „daß es unter den Äpple-Program- 
mierern nur ganz wenige Pascal-Pro- 
grammierer gibt und daß es unter den 
Pascal-Programmierern nur ganz weni- 
ge gibt, die wirklich schwierige Pro- 
gramme schreiben können," Diese 
Schlußfolgerung ist meiner Meinung 
nach sehr voreilig: Das Preisausschrei- 
ben war so angelegt (möglichst kurzer 
Quell- und P-Code, möglichst schnelle 
Kopierzeiten), daß nur Pascal- 
„Freaks", die die P-Maschine in- und 
auswendig kennen, unter Anwendung 
aller möglichen „Tricks“ eine Chance 
zum Gewinnen hatten. Die Bedingun- 
gen waren damit völlig pascal-untypisch 
und mußten zu völlig pascal-untypi- 
schen Programmen führen. 

Die Bedingungen des Preisausschrei- 
bens liefen den Stärken von Pascal 
(z.B. Blockstruktur, selbstdokumentie- 


rendes Programm-Listing, Unabhängig- 
keit von Kenntnissen über Interna des 
Betriebssystems...) völlig zuwider. SO- 
mit motiviert das Preisausschreiben 
eben nicht „normale“ Pascal-Program- 
mierer, sondern nur die o.g. „Freaks“, 
Das abgedruckte Sieger-Programm ist 
dann auch ein Musterbeispiel für un- 
strukturierten, unverständlichen (Anti-) 
Pascal-Code, Man muß schon zweimal 
hinschauen, um zu erkennen, daß es 
sich dabei um ein Pascal-Programm 
handelt. Solch ein Programmierstil wird 
an Schulen sicher nicht gelehrt, 

Da Herr Allgeier ein wirklich kompaktes 
mit Programmierkniffen gespiktes Pro- 
gramm geschrieben hat, verstehe ich 
nicht, daß Sie es so kommentarlos ab- 
drucken, Als „normaler“ Pascal-Pro- 
grammierer verstehe ich (und sicher die 
meisten Peeker-Leser) so manchen 
Trick nicht. Ich wäre Ihnen also dankbar, 
wenn Sie die Funktionsweise des Sie- 
ger-Programms in einer der nächsten 
Ausgaben Ihrer Peeker-Zeitschrift aus- 
führlich erklären würden. Insbesondere 
interessiert mich, was in den BIOS-Puf- 
fer ab $0200 gepokt wird und was die in 
den Apple-Handbüchern nicht doku- 
mentierte Prozedur UNITSTATUS be- 
wirkt. Das wäre auch ein gutes Thema in 
der interessanten Serie „Tips und 
Tricks in Pascal“ von D. Geiß. 

Friedel Berlage, Borgentreich 


Vielseitigkeit der Aufgabe 

Sie haben bestimmt nicht recht, wenn 
Sie sagen, es gäbe unter den Apple- 
Programmierern nur ganz wenige Pas- 
cal-Programmierer, von denen nur ein 
Bruchteil wirklich schwierige Program- 
me schreiben kann, 

Die mangelnde Resonanz beruht wahr- 
scheinlich vielmehr auf der Vielseitigkeit 
der gestellten Aufgabe; Der Program- 
mierer muß quie Pascal-Kenntnisse be- 
sitzen, um ein gerafftes Programm zu 
schreiben, er muß die Maschinenspra- 
che beherrschen, um eine akzeptable 
Routine zum Zusammenfassen der 
Leerzeichen schreiben zu können, 
dann muß er so weit im UCSD-System 
beheimatet sein, daß er weiß, wie man 
peekt, pokt und einen Maschinenspra- 
che-Aufruf simuliert, der unter Pascal 
1.1 und 1.2 läuft, und schließlich hat er 
auch noch den Aufbau des ProDOS- 
Inhaltsverzeichnisses zu kennen. 
Ferner sind bestimmt viele Program- 
mierer durch das Kriterium der Kürze 
abgeschreckt worden, das überaus 
„häßliche" Programme zustande kom- 
men ließ, Zudem hätte man externe Ma- 
schinenunterprogramme zulassen sol- 
len, was die Arbeit wesentlich erleich- 
tert und die Programme lesbarer ge- 
macht hätte 

Thorsten Brants, Norden 


Wenige Pascal-Aufsätze 

für Fortgeschrittene 

Ich wollte schon seit langem ein paar 
Bemerkungen zu den Peeker-Pascal- 
Artikeln mitteilen und nehme u.a. Bezug 
auf das Pascal-Preisausschreiben und 
Ihre in der Lösung geäußerten kriti- 
schen Gedanken für mehr (bzw. weni- 


ger) Pascal-Artikel: Auf keinen Fall soll- 
ten (meiner Meinung nach) weniger 
Pascal-Artikel gebracht werden, eher 
mehr. Das geringe Echo auf Ihr Preis- 
ausschreiben liegt wahrscheinlich dar- 
an, daß 


1. gute (= brauchbare) Pascal-Artikel in 
anderen Zeitschriften nicht vorhanden 
sind; man beschränkt sich oft auf Anfän- 
ger-Lehrgänge, die erklären, was eine 
For-Next-Schleife ist; das gleiche gilt 
für Bücher: Die meisten Pascal-Pro- 
grammierer (nicht professionell!) ken- 
nen z.B. das Buch: „Algoritnmen und 
Datenstrukturen" von N. Wirth nicht! 

2, „Seriöse" Pascal-Programmierer 
keine Zeit haben, ein Preisausschreiben 
zu lösen. 

Andreas Kempf, CH-Basel 


Maschinenunabhängige 
Programmierung 

Ihre Rückschlüsse zu Ihrem (sog. „Pas- 
cal“-Preisausschreiben-) Artikel kann 
ich absolut nicht teilen. Jeder, der sich 
in irgendeiner Form mit Pascal beschäf- 
tigt, stößt in irgendeiner Form auf das 
Primzahlenproblem. So ist es wahr- 
scheinlich zu erklären, daß sich relativ 
viele Leser an dem ersten Wettbewerb 
beteiligt haben, da sie schon „Stan- 
dard-Lösungen“ kannten. Ferner läuft 
Ihr zweiter „Pascal"-Wettbewerb der 
Pascal-Philosophie entgegen, In Pascal 
soll maschinenunabhängig program- 
miert werden. Ferner soll eine gewisse 
Form des Quelltextes vorhanden sein 
(besonders „gut“ in dem abgedruckten 
PROTOPAS-Quelltext zu sehen). 

Als weiteres sollte man sich die Frage 
stellen, warum sich ein Pascal-User un- 
bedingt das ProDOS-System anschaf- 
ten sollte, Ich habe es nicht und werde 
es auch nicht tun, da es den einzigen 
Vorteil brächte, wieder in irgendeinem 
unstrukturierten, wildwuchernden BA- 
SIC-Dialekt mit Peeks und Pokes abso- 
lut unlesbare Programme zu schreiben. 
Sie werden verstehen, daß viele Pascal- 
Fans, die über kein Superbetriebssy- 
stem wie ProDÖS verfügen, nicht an 
dem Wettbewerb teilnehmen konnten. 
Meiner Meinung nach könnten Sie na- 
türlich wesentlich mehr Pascal-Aufsätze 
bringen, aber bitte mit Problemen, zu 
deren Lösungen man kein anderes Be- 
triebssystem benötigt oder irgendwel- 
che System- oder sonstige Adressen 
kennen muß. Vielleicht sollte man unter 
den Lesern mal eine Umfrage starten, 
welche Themen besonders interessie- 
ren. Ihre Serie „Tips und Tricks in Pas- 
cal“ finde ich übrigens ganz hervorra- 
gend. 

Axel Berthold, Edertal 


Quelltextlänge absurd 

Gegen die Aufgabenstellung an sich 
wäre nichts einzuwenden gewesen, 
einmal abgesehen davon, daß ich 
UCSD längst in die Ecke gestellt habe 
und nur noch unter Turbo arbeite. Daß 
ein Bewertungsmaßstab die Geschwin- 
digkeit war, geht auch in Ordnung. Aber 
die Länge des Objectcodes zu bewer- 
ten war überflüssig, da ein Kopierpro- 
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In Vorbereitung 


TurtleGraphics-Library-Paket 
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von Dieter Geiß 
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Das Utility-Paket besteht aus vier Modulen, die von Programmierern benutzt werden können, um 
professionelle grafische Anwendungsprogramme in Pascal zu schreiben. 





Benötigt wird ein Apple Pascal Betriebssystem, entweder die Version 1.1 oder die neue Version 
1.2. Bestehende Programme laufen ohne Einschränkung mit der neuen „TurtleGraphics“, wenn 
diese nicht zu viel Speicherplatz verbraucht haben, da die neue „TurtleGraphics“ umfangreicher 
als die alte ist. 


Im einzelnen bietet das Paket folgende Möglichkeiten: 


— volle Kompatibilität mit der alten „TurtleGraphics“ 

— lauffähig auf Pascal 1.1 und 1.2 

— funktionsfähig mit angeschlossener UlitraTerm-Karte 

— alle zeitkritischen Funktionen in reinem Assembler programmiert 

— Benutzung der zweiten Hires-Seite ($4000-$5FFF) möglich 

— für Apple Ilc und Apple Ile mit erweiterter 80-Zeichen-Karte Benutzung der doppelten Hires- 
Grafik mit 560 x 192 Punkten bzw. 16 neuen Farben möglich 

— schnelle Prozeduren zum Zeichnen eines Punktes oder einer Linie 

— Linearisierung von Teilen des Hires-Schirms 

— Benutzung mehrerer Zeichensätze gleichzeitig 

— Laden und Speichern von Hires-Bildern mit Ausdruck über Pascal-SUPERDUMP 

— Scrolling des Hires-Schirms oder eines Teils in vier Richtungen 

— drei verschiedene Schriftarten: Fett-, Breit- und Proportionalschrift, beliebig mischbar 
(acht Möglichkeiten) 

— spezielle schnelle Ausgabe von Text 

— Cursor bei Eingabe frei programmierbar 

— Ein-/Ausgabe von INTEGER-, CHAR-, STRING- und REAL-Werten im Grafikmodus 

— Menüzeile wie beim Macintosh (Die nachfolgenden Module benötigen Maus/Joystick) 

— Pull-down-Menüs 

— Laden und Speichern von Fenstern (Windows) 

— Öffnen von Fenstern 

— Aktivieren und Deaktivieren von Fenstern 

— Verschieben und Vergrößern/Verkleinern von Fenstern 

— Scrolling von Fensterinhalten in allen vier Richtungen 

— Umfangreiche Demos als Quelltexte. 


Hüthig Software Service : Postfach 102869 - 6900 Heidelberg 
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gramm ganz allgemein um so schneller 
ist, je mehr freien Arbeitsspeicher es 
zur Verfügung hat. Trotzdem hätte ich ja 
auch das noch toleriert, wenn nicht je- 
mand (Sie!) auf die ungeheuerliche 
Idee gekommen wäre, die Länge des 
Quelltextes einer Compilersprache zu 
bewerten. Ich nehme an, daß 99,9% 
aller Pascal-Programmierer an dieser 
Stelle aufhörten, die Ausschreibung 
weiter durchzulesen, Wie Ihr Sieger- 
„Programm" zeigt: Das ist nicht Pascal, 
sondern ein Alptraum, den man nun 
wirklich nicht mehr als Pascal-Pro- 
gramm bezeichnen kann. 

So beweist das magere Ergebnis nicht 
etwa, daß Ihre Leser sich nicht mit Pas- 
cal beschäftigen, eher im Gegenteil, Es 
beweist nur, daß die Pascal-Gemeinde 
nicht bereit ist, bei einem derartigen 
Verbrechen an dieser schönen Sprache 
zum Mittäter zu werden, 

Klaus Mahlmann, Braunschweig 


Konvertierungsprogramm 

ohne Nutzen 

Wenn die Resonanz auf Ihr Preisaus- 
schreiben extrem gering war, so liegt 
das nicht am Interesse der Leser an 
Pascal, auch nicht am hohen Preis für 
das UCSD-System (Turbo-Pascal läuft 
ja auch auf dem Apple und ist billiger), 
sondern an der Art der Aufgabenstel- 
lung: 

Zur Teilnahme war nicht nur erforder- 
lich, Pascal zu beherrschen (inklusive 
Systemkenntnisse wie  UNITREAD 
etc.), sondern man mußte darüber hin- 
aus detaillierte Kenntnisse über den in- 
ternen Aufbau von ProDÖS mitbringen. 
Darüber hinaus hat für viele Leser die 
geforderte Utility keinen praktischen 
Nutzen, denn Pascal wird vorwiegend 
zum Entwickeln eigener Programme 
verwendet, während ProDOS doch ei- 
gentlich nur für die Anwendung kom- 
merzieller Software interessant ist, 
Wenn ich das UCSD-System benutze, 
wozu brauche ich dann ProDOS? Daher 
war die geringe Resonanz auf das 
Preisausschreiben vorherzusehen - 
wählen Sie in Zukunft wieder weniger 
spezielle Aufgabenstellungen! 

Das soll keine Kritik an Ihrer ausge- 
zeichneten und vielseitigen Zeitschrift 
sein. Im Rahmen Ihrer Pascal-Artikel 
würden mich insbesondere solche über 
die interne Struktur des UCSD-P-Sy- 
stems interessieren. Hier gibt es eine 
Reihe von Eigenschaften, die keinem 
mir bekannten Buch zu entnehmen sind 
(Wirkung der U-Compiler-Option, Funk- 
tion von SYSTEM.ATTACH etc.). 

Dr. Hans-Joachim Scheefer, Frankfurt 


UCSD-Pascal zu teuer 

Ich möchte das einjährige Jubiläum Ih- 
rer Zeitschrift zum Anlaß nehmen, zu 
einigen Themen der letzten Zeit Stel- 
lung zu nehmen. 

Die geringe Resonanz auf das Pascal- 
Preisausschreiben erscheint mir nicht 
weiter verwunderlich. Der extrem hohe 
Preis des Apple-UCSD-Systems wird 
meines Erachtens viele Leser von ei- 
nem Kauf abgehalten haben, Wer das 
UCSD-P-System kennt, wird überdies 
wenig Lust an Pascal bekommen. Ohne 
die Vorteile dieses Systems leugnen zu 
wollen, scheinen mir die Nachteile — 
Geschwindigkeit, Diskettenorientie- 
rung, Pseudocode - für den Hobbyisten 
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zu überwiegen, Die Portabilität der Pro- 
gramme allein ist zumindest für mich 
kein Kaufanreiz gewesen, Wer das Tur- 
bo-Pascal-System kennt, wird sich wohl 
kaum weiter für Apple-Pascal interes- 
sieren. Der Wechsel vom Editor in den 
Compiler, die Compilierung selbst, all 
das ist in einer phantastischen Ge- 
schwindigkeit möglich, Hinzu kommt 
die Möglichkeit, CP/M-CGommand-Files 
zu erzeugen, die unabhängig vom Tur- 
bo-Pascal arbeiten können, ein unbe- 
streitbarer Vorteil. Selbst mit einer Z80- 
Karte ist das Turbo-Pascal-System 
noch immer günstiger als das Apple- 
UCSD-System. 

Georg Basse, Oldenburg 


Pascal in der Schule 

In der September-Ausgabe des Peeker 
veröffentlichten Sie die Gewinner des 
Pascal-Preisausschreibens und beklag- 
ten gleichzeitig die geringe Beteiligung. 
Damit verbinden Sie die Frage an die 
Leser, ob in Zukunft weniger Pascal- 
Aufsätze im Peeker abgedruckt werden 
sollen. Aus meiner Sicht kann ich nur 
sagen: Lieber wäre mir mehr Pascal. Ich 
bin Lehrer und unterrichte auch Infor- 
matik, In den Lehrplänen des Landes 
Rheinland-Pfalz ist der Informatikunter- 
richt ganz auf Pascal abgestellt. Aller- 
dings muß man auch dazu wissen, daß 
Informatik nicht gleichbedeutend mit ei- 
nem Programmierkurs sein kann und 
darf. 

Daraus erklärt sich auch, daß zwar viele 
Schüler Grundkenntnisse in Pascal ha- 
ben, mehr aber auch nicht, Im Normal- 
fall hat der Schüler, der Informatik ge- 
wählt hat, keinen pascal-fähigen Com- 
puter zu Hause, auf dem er sich die 
notwendige Übung für das UCSD-Be- 
triebssystem holen kann. Bei zwei oder 
drei Stunden Unterricht pro Woche 
bleibt dafür in der Schule auch wenig 
Zeit. Der „normale“ Informatikschüler 
(ch spreche hier nicht von dem 
„Freak“) ist also kaum in der Lage, Auf- 
gaben von der Schwierigkeit Ihres 
Preisausschreibens zu lösen. 

Wenn Sie diesen Schülern — und auch 
den meisten Lehrern — mit Ihrer Zeit- 
schrift helfen wollen, dann bringen sie 
weiter Pascal-Aufsätze, und Sie können 
ruhig vom Niveau etwas weniger hoch 
sein. Von Zeit zu Zeit könnten auch 
manche Begriffe noch einmal erklärt 
werden, Das gilt übrigens nicht nur für 
Pascal-Aufsätze. Nicht jeder Leser Ihrer 
Zeitschrift weiß, was z.B. „Patch" oder 
„Double-Hires" ist. Und Ihre Redakteu- 
re haben ja bereits bewiesen, daß sie 
Ihr Handwerk verstehen. 

Ansonsten kann ich mich eigentlich nur 
dem Lob anschließen, das z.B. aus den 
Leserbriefen der September-Ausgabe 
herauszuhören ist. Ich weiß natürlich 
auch, daß es außer dem von mir ge- 
nannten Adressatenkreis auch die vie- 
len Bastler, Tüftler usw. gibt, für die Sie 
anders schreiben müssen. Aber viel- 
leicht kann man es hier doch mal allen 
recht machen. 

Jürgen Keltner, Vallendar 


Pascal-Interna wenig bekannt 

Der mangelnde Zuspruch auf Ihr Pas- 
cal-Preisausschreiben hat meiner Mei- 
nung nach folgene Ursachen: 


1. Da ProDOS seine Vorteile nur bei 
sehr großen Datenmengen voll aus- 
spielen kann, die bei den meisten Hob- 
by-Programmierern einfach nicht anfal- 
len, dürfte das Interesse an ProDOS 
schon verhältnismäßig gering sein, 


2. Die Pascal-Diskettenorganisation ist 
nahezu vollständig unbekannt und 
schreckt daher viele davon ab, Low- 
Level-Prozeduren zu benuizen., 

3. Es ist beinahe unmöglich, mit dem 
Pascal-System in Assembler zu pro- 
grammieren, da 

a) keinerlei Systemroutinen bekannt 
sind; 

b) es keinerlei Beispielprogramme gibt, 
die auch nur den Einsatz der diversen 
Befehle einigermaßen erklärt; 

c) man nie genau weiß, wohin man denn 
die Routinen schreiben soll, ohne daß 
sie Gefahr laufen, zerstört zu werden; 
d) es keine Beispiele gibt, in denen 
erklärt wird, wie die Parameter wieder 
korrekt zurückgegeben werden müssen 
(bes. Strings, Arrays, Reals); 

e) mir keine Routine bekannt ist, die mir 
z.B, den Typ eines „typlosen“ Parame- 
ters angibt, somit Ist diese Möglichkeit 
der Parameterübergabe für mich voll- 
kommen wertlos. 

Aus diesen 0.9, Gründen würde ich es 
begrüßen, wenn Sie Ihre Pascal-Serie 
weiter fortsetzen würden und wenn ir- 
gend möglich auch dazu beitragen, die- 
ses Informationsdefizit zu füllen. 
Konkret würde mich derzeit folgendes 
interessieren: Simulieren einer Pascal- 
STR-Funktion unter Benutzung der ent- 
sprechenden BASIC-ROM-Routine. 
Gerd Grammel, Wiernsheim 


Quelltextkürze sinnlos 

Der neueste Peeker ist wieder voll inter- 
essanter Beiträge, die sich qualitativ 
wohltuend von denen anderer Fachzeit- 
schriften unterscheiden. Ihre Anmer- 
kungen zum Pascal-Preisausschreiben 
haben mich allerdings ziemlich getrof- 
fen, daher kann ich mir einen Kommen- 
tar nicht verkneifen. Ich programmiere 
seit über zwei Jahren UCSD-Pascal und 
bin wohl fortgeschritten genug, auch 
komplizierte Probleme lösen zu kön- 
nen, Zwei Dinge haben mich jedoch an 
einer Teilnahme gehindert: 

1. Ich kenne den Aufbau des ProDOS- 
Inhaltsverzeichnisses noch nicht. 

2, Die Forderung eines möglichst kur- 
zen Quellcodes erscheint mir absolut 
sinnlos. Mir ist ein mehrseitiges, gut 
kommentiertes Pascal-Programm tau- 
sendmal lieber als dieser unästhetische, 
undurchsichtige Quellcode. 

Norbert Dörner, Langenhahn 


Pascal-Assembler statt 

Peeks und Pokes 

Sicherlich ist Pascal bei den Apple-Be- 
sitzern nicht so verbreitet wie BASIC, 
aber es ist sicherlich nicht so, daß die 
Pascal-Programmierer eine sehr kleine 
Gruppe sind. Die von Ihnen angeführ- 
ten Gründe für das geringe Echo auf 
das Pascal-Preisausschreiben sind mei- 
nes Erachtens nicht ausschlaggebend, 
wenn sie auch zutreffend sein mögen. 
Ich möchte nun Gründe nennen, die 
aus meiner Sicht zutreffender sind: 

1. Für das Preisausschreiben wurde ein 
sehr ungünstiger Zeitpunkt gewählt, 
denn in ganz Deutschland war vom Er- 


scheinen des Heftes Nr. 7/85 bis zum 
Einsendeschluß am 22.07.1985 Ferien- 
zeit, somit waren wenige der potentiel- 
len Teilnehmer zu Hause und hatten 
Zeit, sich zu beteiligen. 

2. Die Voraussetzung 1 erscheint mir 
nicht konsequent genug zu sein. Es hät- 
te, wenn schon gepokte Maschinenrou- 
tinen erlaubt sind, auch die Benutzung 
des Assemblers und somit auch die des 
Linkers zum Einbinden von Maschinen- 
routinen gestattet sein sollen, denn was 
spricht dagegen, das Pascal-System 
voll auszunutzen? Die Erweiterung die- 
ser Voraussetzung hätte natürlich zur 
Folge gehabt, daß die Lösungen haupt- 
sächlich in Assembler geschrieben wor- 
den wären, womit das Preisausschrei- 
ben kein Pascal-Preisausschreiben 
mehr gewesen wäre. Deswegen hätte 
die Bedingung restriktiver sein müssen, 
sie hätte auch gepokte Maschinenroufi- 
nen verbieten müssen, 

3. Die Vorschrift zur Berechnung der 
Punkte hätte nicht die Länge der Sour- 
ce-Codes beinhalten sollen, denn dies 
führt zu Programmen, die in ihrem Er- 
scheinungsbild dem Konzept von Pas- 
cal widersprechen. Dies hat sich ja in 
dem im Peeker Nr. 9/85 veröffentlichten 
Programm gezeigt. 

4, Ein weiterer gravierender Nachteil 
des Preisausschreibens war die Aufga- 
be selbst, da sie voraussetzte, daß wei- 
tergehende Kenntnisse von zwei Be- 
triebssystemen vorhanden sein 
mussen, 

Jetzt möchte ich noch auf meine per- 
sönliche Erfahrungen mit dem Pascal- 
Preisausschreiben eingehen, Bei mir 
stellte sich beim Kauf des Peeker Nr. 7/ 
85 eine starke Euphorie ein, als ich vom 
Pascal-Preisausschreiben las, da ich ein 
begeisterter Pascal-Programmierer bin. 
Bei näherer Betrachtung stellte sich bei 
mir allerdings eine starke Enttäuschung 
ein, die sich durch die oben genannten 
Gründe belegen läßt, zumal ich auch 
nicht im Besitz von ProDOÖS bin, !m 
großen und ganzen scheint mir, daß das 
Pascal-Preisausschreiben nicht richtig 
durchdacht war, was ich von Ihrer Zeit- 
schrift nicht erwartet hätte. Dies ändert 
allerdings nichts an dem positiven Ein- 
druck am Peeker, den ich während der 
Zeit gewonnen habe, in der ich zu den 
Lesern des Peeker zähle. 

Ich hoffe, daß die Reaktion auf das Pas- 
cal-Preisausschreiben beim Peeker 
nicht zur Vernachlässigung von Pascal 
führt. Ich persönlich wünsche mir mehr 
über Pascal, speziell über das Betriebs- 
system. 

Arno Zietz, Hamburg 


Pascal i.2 veraltet 

Mehr Beiträge über Pascal, das ist Ihre 
Frage. 

Mein Antwort: ja, aber... 
Computersprachen und Betriebssyste- 
me sind eine Glaubensfrage, welche oft 
zur Weltanschauung erhoben wird. Wo 
liegen nun die Möglichkeiten von 
Pascal? 

1. Strukturierte Programmierung, 

2. Strukturierte Daten, 

3. Modulares Konzept. 

Das erste wird oft gerühmt und nachge- 
ahmt (Fortran 77, Ratfor, neuere BA- 
SIC-Dialekte), aber Punkt 2 und 3 wer- 
den oft völlig unterschlagen und werden 
wohl auch nie so richtig kohärent in 
andere Sprachen eingebaut werden 
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können. Man kann auch zusammenfas- 
send sagen, daß Pascal ein Konzept zu 
Grunde liegt, wogegen besonders die 
0.9. Sprachen aus der Steinzeit der 
Computer stammen und eher eine Än- 
häufung von Regeln darstellen. Wo lie- 
gen nun die Vorteile von UCSD-Pascal? 
4. Ohne Z80-Karte auf Ile und IIc lauf- 
fähig, 

5. Flexibel und ausbaufähig etc., aber 
nicht mehr State of the Art. Es gibt für 
andere Rechner immerhin schon die 
Version 5.2 und nicht erst eine popelige 
1,2. Es ist viel zu teuer. All das und 
vieles mehr hängt wohl mit der merk- 
würdigen Firmenpolitik von Apple zu- 
sammen, wenn Apple überhaupt eine 
hat. 

Dipl.-Ing, Peter Klamser, Goslar 


Pascal, ProDOS und Schule 

Zur Auflösung der Programmieraufgabe 
ProDOS nach Pascal und der Artikelse- 
rie über Pascal von Dieter Geiß habe ich 
einige Anmerkungen zu machen. 

Ich glaube, daß die Aussage aus Ihrem 
Artikel, daß Pascal bei den Lesern des 
Peeker keinen so großen Anklang oder 
keine so große Verbreitung hat, nicht 
unwidersprochen hingenommen wer- 
den kann. Meiner Ansicht nach hat si- 
cher ein großer Anteil der Leserschaft 
Interesse an der Sprache und der Lö- 
sung von Problemstellungen. Allerdings 
war die Programmieraufgabe von einer 


etwas seltsamen Gestalt, so daß mich 
die geringe Resonanz nicht im minde- 
sten verwundert hat. In meinem weite- 
ren Bekanntenkreis, der sich durchaus 
intensiv mit der Programmierung in Pas- 
cal befaßt, hat sich niemand gefunden, 
der auch nur im geringsten an einer 
Lösung für ein Transferprogramm von 
ProDOS nach Pascal Interesse bekun- 
det, weil niemand mit ProDOS und Pas- 
cal simultan arbeitet. Das liegt sicherlich 
nicht unbedingt an ProDOS, sondern 
daran, daß Applesoft-BASIC eine Pro- 
grammiersprache darstellt, die nicht als 
Ideal zur Lösung größerer Program- 
mieraufgaben betrachtet werden kann 
und somit die Verwendung des Pascal- 
Editors zur Editierung von BASIC-Pro- 
grammen ausscheidet, da größere Pro- 
gramme sowieso besser in Pascal ge- 
schrieben werden, Allerdings finden die 
0.9. Anwender das Arbeiten mit Pro- 
DOS auch nicht so einfach wie etwa das 
Arbeiten unter DOS 3.3 und Äblegern, 
da Disketten- und Dateienansprache 
nicht vereinfacht, sondern eher verkom- 
pliziert wurden, Des weiteren fehlt be- 
stimmt vielen Pascal-Programmierern 
der tiefere Einblick in das ProDOS-Be- 
triebssystem, da sie sich aus den 0.9. 
Gründen nicht damit zu beschäftigen 
brauchen und wollen. Die einzige vor- 
stellbare Anwendung eines Transfer- 
programms von ProDOS nach Pascal 
wäre die Übertragung von Appleworks- 





Dateien, wobei hier allerdings die even- 
tuelle Verwendung von Steuercodes im 
Text die Übertragbarkeit stark ein- 
schränken würde und somit die Erstel- 
lung von Texten im Pascal-Editor sinn- 
voller erscheint. 

Zu dem von Ihnen angesprochenen 
Thema Pascal an Schulen wäre einiges 
zu sagen. 

Daß Pascal an den Schulen nicht bis zur 
Perfektion gelehrt wird, ist durchaus 
korrekt. Man kann dieses Manko aller- 
dings nicht den Schulen anlasten, da 
der Lehrauftrag der Schulen nicht darin 
besteht, perfekte Pascal-Programmierer 
auszubilden, sondern Pascal nur als 
Beispiel für eine höhere Programmier- 
sprache in seinen Grundzügen behan- 
deit und gelehrt werden kann. Hier den- 
ke ich auch, daß Pascal mehr oder we- 
niger zufällig als Sprache nur ausge- 
wählt wurde, da Pascal auf beinahe allen 
Mikrocomputern implementiert ist und, 
noch wichtiger, durch seine Strukturie- 
rung Zu einem überlegten Programmie- 
ren und einem relativ sauberen Pro- 
grammierstil erzieht. Hieraus resultiert 
eine vergleichsweise (z.B. zu BASIC) 
einfache Nachvollziehbarkeit der Pro- 
grammierschritte und somit die ideale 
Eignung als Sprache für den Unterricht. 
Wenn eine andere Sprache diese Vor- 
aussetzungen erfüllt hätte, so wäre si- 
cherlich jene Sprache zur Schulpro- 
grammiersprache Nummer eins gewor- 
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den. In dieser Eigenschaft stellt Pascal 
nur einen kleinen Teil des Lehrplanes 
neben der theoretischen Informatik und 
einer Einführung in die Assemblerpro- 
grammierung dar. 


Als letzten Punkt möchte ich noch die 
sehr interessanten Artikel von Herrn 
Geiß ansprechen. Sie sind von hohem 
Nutzen für den Anwender, der sich tie- 
ter mit Pascal befaßt. Nur vermisse ich 
immer Hinweise auf die Quellen des 
Wissens, so daß manche Artikel etwas 
undurchsichtig bleiben. Es kann doch 
nicht angehen, daß das Wissen nur 
durch die allgemein bekannte Pascal- 
Literatur kommt, da hier eine sehr de- 
taillierte Kenntnis des Systems vorliegt, 
die ich noch nirgends beschrieben ge- 
sehen habe. Soll man doch der armen, 
unwissenden Leserschaft die Chance 
geben, über die paar Krümel hinaus, die 
durch die Artikel verteilt werden, etwas 
mehr an Wissen zu erlangen und nicht 
eine Art Abhängigkeit zu schaffen, die 
ich persönlich nicht als sehr angenehm 
empfinde. 

Adrian Meissner, Trier 








MICROMINT 
7 — Zukünftiges heute — 


1 „fach bewährt! @ modernste System-Architektur 

1000-fach bewährt! @ Micromint high Speed Bootrom: Bootzeit 20 sec, 
MICRONMINT 16 Testbereich 3-fach erweitert 

100 % XT-IBM®? comp. © Tastatur: kapazitiv, programmierbar 


@ Platine: XT - 100% IBM®-Compatible, 
640 K Mainboard, 
mit 256 K bestückt, voll gesockelt 
8 Slots, vergoldet, 
8088 Prozessor, 8087 optional, 
Bootrom, herausragende Qualität 
@ Taktfrequenz 4,77 MHz 
@ 1 x Mitsubishi Laufwerke 
@ Multi /O Card incl. Printeranschluß 
u. Controlleranschluß 
® Herculescard incl. Printer-Anschluß 


Preis incl. MwSt. 


DEA 2.211» 


25 MHz Monitor: TTL- + Video-Chinch-Anschluß für Commodore, IBM, Atari DM 311. 
Achtung! Lieferbar ab Januar ’86: 
RGB-Farbmonitor 14 MHz für sämtliche Computersysteme DM 499,.- 











640 K Mainboard mit 256 K bestückt ..essennsoaunnnsonesonsnnnannnnununn anna rennen 499,- 
Hercules - Monochrome Card incl. Printeranschluß....ue=.#u02s0042 4022 40R0 HR een 348,- 
Graphic-Color-Card .. A algeiiien ne Seaeneeehseiekherelleeeih ad 199,- 
384K — Multifunction Card m, 256 K bestückt „u... ..+......020} FASER IE RanSRIIE San 479,- 
Harddisc-Controller .....:-. ET a EEE TE a hruuece ab 499,- 
Multi I/O Card incl. Printeranschluß ı u. Controlleranschluß „2.4... ..20.... RETTET 359,- 
ElSppYy: Gontraller ve seem sc ner ee Saat EEE mer er 119,- 
Tastatur, kapazitiv, programmierbar a 259,- 
Netzteil 20 A aaa een EEE eat else unneunn ne 254,- 
Mitsubishi Laufwerk 2 x 40 Track ...240-4#442004000 Renee Fu FE she 349,- 
Joystick für IBM ..........- ra a RE nn Dr EEE ÄTLERNERTE ab 3 Stück 33,— 





Apple® Comp. 64 K, 2 x CPU. newer anna en EEE en ENTER 880,- 


Kostenlose Preislisten anfordern! Händlerpreise erfragen! 
Auf alle Artikel gewähren wir 14 Tage Rückgaberecht und 6 Monate Garantie! 


02104/33024 


Hochdahler Sir 151 - D-4006 Erkrath 2 (Hochdahl) 
Postgirokonto Essen 276151-430 (BLZ 360 100 43) 
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INTUS-Lernprogramme 


für Apple Il - Computer 
« Englisch/Deutsch 
Wortschatztrainer 


» Sell it in English, 
Verkäuferenglisch 


e Bankers wits, 
Bankenenglisch 


| e Computer slang, 
Computerenglisch 


e Rechtschreibtrainer 
für Deutsch 


« Maschineschreiben 
wie der Blitz 


e Basic-Lernprogramm, 
sehr umfangreich DM 295,- 


e und über 200 weitere Programme. 
Katalog gratis 


| e Demo-Disketten 
mit 5-9 Teilprogrammen 


e 6000 Frei-Programme (fast) gratis 
Programm-Liste (Vorkasse) DM 10,- 


DM 98,- 
DM 125,- 
DM 125,- 
DM 125,- 
DM 125,- 


DM 188,- 


INTUS SOFTWARE 


Kaiserstr. 21, 7890 Waldshut, 
Tel. 07751-7920 


DM 10- 


Der nächste 
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Jahresinhaltsverzeichnis 


Peeker 1/84 bis 12/85 


Das nachfolgende Jahresinhaltsver- 
zeichnis ist nach Heften und innerhalb 
der Hefte nach Rubriken gegliedert, 

Ein gesonderter Textfile mit einem 
Suchprogramm für Apple Il+, Ile und Ilc 
ist auf der Peeker-Sammeldisk + 12 
enthalten. Das Sachprogramm wird mit 
RUN WORT.SUCHER gestartet. 


Rubriken 


Applesoft 
Assembler 
Buch 

CP/M 

DOS 33 
Drucker 
Grafik 
Händler-Profil 
Hardware 
Hobby 
Leserbriefe 
Kurzbericht 
Macintosh 
MBASIC 
Nachtrag 
Pascal 
ProDOS 
Produkt 
Recht 
Schule 
Telekommunikation 
Test 

Turbo 
Vermischtes 
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Hardware: Der neue 65002-Prozessor. 
Ulrich Stiehl. 1/8476 

Assembler: 65C02-Disassembler für 
Apple Ile und || Plus, Ulrich Stiehl. 1/84/ 
14 

Hardware: Accelerator Ile. Die neue Su- 
perkarte. Ulrich Stiehl, 17/84/19 
Applesoft: Applesoft simuliert Turtle 
Graphic, Harald Grumser. (Ergänzung 
2/84/10) 1/84/26 

Grafik: Wie man die Grafik verdoppelt. 


ne 


Teil 1: 
84/32 
Drucker: Hires-Grafik-Dump für Epson- 
drucker. Jürgen und Dieter Geiß. 1/84/ 
AO 

Turbo: Turbo-Pascal Schritt für Schritt. 
Dr. Ekkehard Kaier. 1/84/51 

ProDOS: ProDOS-Patch für geänderte 
F8-ROMs. Ulrich Stiehl. (Ergänzung 2/ 
84/10) 1/84/54 

ProDOS: Patch für ProDOS.INIT 80 
Spuren. Hans-Georg Hüneke. 1/84/56 
Hobby: Wer ist der Schnellste? Prim- 
zahlen-Preisausschreiben. 1/84/58 
Vermischtes: Hinweise für Autoren. 1/ 
84/62 

Produkt: Individuelle Zeichensätze für 
Matrixdrucker (DMP-Charger). 1/84/63 
Produkt: AFC-Tastatur mit Maus für Ap- 
pie. 1/84/63 

Produkt: Copy Killer (Kopierschutzsy- 
stem). 1/84/64 

Produkt: Sony-Laufwerke von Ueding. 
1/84/64 

Produkt: 65002 + Accelerator: Wer lie- 
tert was”? 1/84/64 

Produkt: Bidirektionaler Datenverkehr 
zwischen Apple und Brother-Typenrad- 
schreibmaschine. 17/84/64 


Buch: Apple DOS 3,3. 1/84/65 

Buch: Mathematische + Wissenschaft- 
liche Programme in Basic. 1/84/65 
Buch: Statistik in Basic. 1/84/65 

Buch: Apple Il leicht gemacht; 1/84/65 


Double Lores. Ulrich Stiehl. 1/ 
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Leserbriefe: 2/84/8 

ProDOÖS: ProDOS für Anfänger. Teil 1: 
Was ist ProDOS? Ulrich Stiehl. 2/84/12 
ProDOS: Was Geschäftsleute vom Pro- 
DOS-FILER wissen sollten. Ulrich 
Stiehl. 2/84/20 

Grafik: Wie man die Grafik verdoppelt. 
Teil 2: Double Hires. Karl-Walter Bott. 
2/84/24. Vgl. 1/84/32 
Telekommunikation: Modems kommen 
in Mode. Praktische Ratschläge für die 





Telekommunikation mit Modem. Mat- 
thias Pohl. 2/84/36 

Applesoft: Ampersand macht's möglich. 
INSTRING-Befehl in Applesoft, Dr. Jür- 
gen B. Kehrel. 2/84/40 

Applesoft: IF-THEN-ELSE-Befehl simu- 
liert in Applesoft. Franz-Josef Hüskens, 
2/84/48 

Applesoft: Wie man Arrays löscht, Chri- 
stiane Breit und Thomas Schneyer. 2/ 
84/51 

Macintosh: Microsoft Basic leicht ge- 
MACht, Teil 1: Operanden und Opera- 
toren. Pit Capitain. 2/84/54 

Test: Gestochen scharf, Die Videokarte 
UltraTerm für den Apple Il. Dieter und 
Jürgen Geiß. 2/84/60 

Hardware: Prometric. Ein Apple-Kom- 
patibler mit 65C02C, Ulrich Stiehl, 2/84/ 
64 

Test: S.A.M. The Software Automatic 
Mouth oder wie man den Apple zum 
Sprechen bringt, Ralf Augspurger. 2/ 
84/66 

Händler-Profil: r + r electronik. 2/84/69 
Hobby: Die Gewinner des Primzahlen- 
Wettbewerbs. 2/84/70 

Vermischtes: Hinweise für Autoren, 2/ 
84/72 

Test: Diskettenlaufwerke für ProDOS im 
Test. Ulrich Stiehl. 2/84/74 

Produkt: Atari-Joystick und Apple. 2/ 
84/75 

Produkt: MacLabel. 2/84/75 

Produkt: CTS-Mineralöl. 2/84/75 

Buch: BASIC Übungen für den Apple. 
2/84/76 

Buch: Bücher für Elektronik + Compu- 
ter, 2/84/76 

Buch: Schulsoftware-Katalog. 2/84/76 
Buch: The Apple in your hand. 2/84/76 
Buch; Apple il Tips & Tricks. 2/84/76 
Buch: Apple ProDOS für Aufsteiger 
(Band 1). 2/84/78 

Buch: Apple Maschinensprache. 2/84/ 
78 

Buch: Apple Assembler. 2/84/78 

Buch: Pandasoft-Katalog. 2/84/78 
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DOS 3.3: Poor Man’s RAM-Disk, RAM- 
Disk-Driver für die Language Card. Ul- 
rich Stiehl. (Ergänzung 86/85/69) 1-2/ 
85/8 

Technik: Die RAM-Karten von IBS, Mit 
Quellcode eines RAM-Disk-Drivers. Ul- 
rich Stiehl, 1-2/85/18 

ProDOS: QUICKCOPY. Ein schnelles 
ProDOS-Kopierprogramm für 35-80 
Spuren, Ulrich Stiehl; 1-2/85/22 
ProDOS: ProDOS und „Kompatible“. 
Ein allgemeines Patch-Programm. Arne 
Schäpers, (Berichtigung in Leserbrief 
10/85/69) 1-2/85/31 

Applesoft: Müllabfuhr wie ein Blitz. Eine 
ultraschnelle Garbage-Collection-Routi- 
ne. Harald Grumser. (Berichtigung 8/ 
85/70) 1-2/85/32 

Assembler: Speichern Sie den Bild- 
schirm ab! Organisation des 40-Z/Z- 
Apple- und des 80-Z/Z-Videx-Bild- 
schirms. Dr. Jürgen B. Kehrel. 1-2/85/ 
42 

MBASIC: Lohn- und Einkommensteuer 
1984. Ein umfassendes CP/M-MBA- 
SIC-Programm,. Volker Duske, 1-2/85/ 
45 

Pascal: Pascal-Diretory unter der Lupe. 
Dieter Geiß. 1-2/85/64 

Pascal: GETPAS: Konvertierung von 
Pascal- in DOS-Textfiles. Ulrich Stiehi. 
1-2/85/68 

Pascal: GETDOS: Konvertierung von 
DOS- in Pascal-Textfiles. Jürgen Geiß. 
1-2/85/70 

Macintosh: Ikonen und Deixis oder die 
Philosophie des Macintosh. Ulrich 
Stiehl, 1-2/85/74 

Macintosh: Microsoft Basic leicht ge- 
MACht. Teil 2: Funktionen und Pro- 
grammsteuerbefehle. Pit Capitain. 1-2/ 
85/78 

Telekommunikation: Weltweite Daten- 
übertragung mit dem WS 2000, Ein Uni- 
versalmodem für alle Normen. Matthias 
Pohl. 1-2/85/84 

ProDOS: Applesoft-Editor-Macros. Ein 
Quickie für den PRODOS.EDITOR, Ul- 
rich Stiehl. 1-2/85/86 

Test: Exbasic Level II im Test. Eine Ba- 
sic-Erweiterung bringt Sie ins Staunen, 
nicht nur positiv. Dr. Jürgen B, Kehrel. 
1-2/85/88 

Vermischtes: Hinweise für Autoren. 1- 
2/85/92 

Buch: Das Buch zum Apple Il. 1-2/85/ 
93 

Buch: Programmierung des 6502. 1-2/ 
85/93 

Buch: 6502 Anwendungen. 1-2/85/93 
Buch: Apple II ROM Listing. 1-2/85/93 
Buch: Fortgeschrittene 6502 Program- 
mierung, 1-2/85/94 

Buch: Macintosn Benutzerhandbuch, 1- 
2/85/94 

Produkt: Doppel-Parallelinterface mit 
RAM oder EPROM. 1-2/85/96 

Produkt: Modula-2 für den Macintosh. 
1-2/85/96 
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Produkt: 64K-Karte für Ile, 1-2/85/96 
Produkt: Staub und Schmutz auf Com- 
puter und Tastatur? 1-2/85/97 

Produkt: TempoHexe „SpeeDemon" 
65C02G-Prozessorkarte. 1-2/85/97 
Produkt: Lohn- und Gehaltsabrech- 
nung. 1-2/85/97 

Produkt: Lotus — Jazz, ein multifunktio- 
nales Software-Paket, 1-2/85/97 
Produkt: Branchenprogramm Reisebü- 
ro. 1-2/85/97 

Produkt: UCSD p-Systern für den Mac- 
intosh. 1-2/85/97 

Produkt: STATEX für Bildschirme, 1-2/ 
85/97 

Produkt: Computerunterstütztes Ler- 
nen, 1-2/85/99 

Produkt: Mailmerger für AppleWorks. 1- 
2/85/99 

Vermischtes: Apple User Club Austria, 
1-2/85/99 

Vermischtes: Apple-Diebe am Werk. 1- 
2/85/99 
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Technik: Der Apple Il als persönliches 
Ingenieurwerkzeug. Dipl.-Ing. Bernd 
Worms. 3/85/6 

Hardware: Aufbau und Funktion von 
Diskettensystemen. Dipl.-Ing. Gerhard 
Berg. 3/85/10 

Schule: Testgenerator für Legastheni- 
ker. Dr.Wolfgang Kersken. 3/85/22 
Schule: Höhere Präzision bei den vier 
Grundrechenarten. Konrad Steinmeier, 
3/85/30 

CP/M: Wordstar-Transfer-Refiner. Kon- 
vertiertung von CP/M-Wordstar- in 
DOS-Applewriter-Textfiles. Dr. Jürgen 
B. Kehrel. 3/85/35 
Vermischtes: Apple-Hotline. 
Stiehl. 3/85/35 

CP/M: GETCPM: Konvertierung von 
CP/M- in DOS-Textfiles. Applesoft-Ver- 
sion. Thomas Fink. 3/85/43 

Macintosh: Die Maske fällt und Mecki 
seh’ ich nun, entblößt von allen Reizen, 
Der Macintosh im Leistungstest, Ulrich 
Stiehl. 3/85/44 

Hobby: Geschwindigkeit ist keine He- 
xerei, Erastosthenes erneut betrachtet. 
Michael G. Schneider. 3/85/56 

Test: Pascat 1.2 Evolution statt Revolu- 
tion, Claus Rautenstrauch, (Ergänzung 
10/85/60) 3/85/65 

Hardware: Accelerator-Karte abstellen, 


Ulrich 
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Ulrich Stiehl, 3/85/66 

Test: Double-Hires-Grafik-Programme. 
Doublestuff Plus. Thomas Bühner. 3/ 
85/70 

Test: Double-Hires-Grafik-Programme. 
Superplot. Anmerkung von Ulrich 
Stiehl. 3/85/70 

Test: Hardbreaker und Softbreaker oder 
wie man Programme „entschützt“, UI- 
rich Stiehl, 3/85/72 

Produkt: Beliebte Apple-Spiele. 3/85/ 
73 

Test: Memdos Junior. Ein neues Be- 
triebssystem für den Apple Il. Dr. Jür- 
gen B, Kehrel. 3/85/75 

Test: GP/M-Karte für den Apple Ilc. Dr. 
Jürgen B. Kehrel. 3/85/75 

Test: HOCO-Masterclock. Arne Schä- 
pers. 3/85/76 

Leserbriefe: 3/85/77 

Vermischtes: Große Peeker-Umfrage. 
3/85/78 
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Recht: Knock, Knock! Who’s there? 
Software und Kopierrecht. Ulrich Stiehl. 
4/85/6 

Grafik: Graf-quattro. Künstlerische Gra- 
fik für jedermann, Teil 1: Wie ein Super- 
editor entsteht, Nino G. Barbieri, 4/85/ 
14 

Applesoft: Menü-Generator für den Ap- 
ple Il, Dr, H. Kersten, 4/85/20 
Assembler: Makros für die neuen Be- 


fehle des 65C02, Dipl.-Oec. Edgar 
Meyzis. 4/85/30 
Drucker: SCREEN80, 80-Z/Z-Bild- 


schirm-Dump. Ulrich Stiehl. 4/85/33 
Telekommunikation: Terminal-Pro- 
gramm für den Apple Il. Andreas Le- 
creux. (Ergänzung 6/85/72) 4/85/34 
ProDOS: ProDOS für Anfänger. Teil 2: 
Das definitorische Grundgerüst, Ulrich 
Stiehl, 4/85/41 

ProDOS: Trace-Bug. 4/85/46 

ProDOS: PRODOS,READER. 4/85/46 
Pascal: Apples Maus lernt jetzt auch 
Pascal, Jürgen Geiß. 4/85/48 

CP/M: GP/M für Einsteiger. Jörg Lange. 
4/85/59 

Macintosh: Microsoft Basic leicht ge- 
MACHt. Teil 3: Die Ein- und Ausgabe. 
Pit Capitain. 4/85/63 

Händler-Profil: Orgasoft plant für die 
Zukunft. 4/85/67 


Kurzbericht: Auf dem Äbstellgleis: 
Steve Wozniak. 4/85/68 

Kurzbericht: AUGE und Apple-Mün- 
chen. 4/85/68 

Kurzbericht: Ergänzungen zu „ProDOS 
für Aufsteiger”, Bd. 1. Arne Schäpers. 
4/85/69 

Kurzbericht: ProDOS-Bücher und -Auf- 
sätze 4/85/69 

Kurzbericht: Apple-Bücher im Preisver- 
gleich, 4/85/70 

Applesoft: INALL. INPUT für DOS/Pro- 
DOS, (Berichtigung 5/85/50) 4/85/70. 
Leserbriefe: 4/85/72 

Test: Mailmerger und Appleworks. UlI- 
rich Stiehl. 4/85/73 

Test: Erphi-Controller, Eine kompatible 
Erweiterung. Harald Grumser, 4/85/75 
Produkt: INTERTEXT,. Internationale 
Textautomation mit dem Apple Ile. 4/ 
85/76 

Applesoft: SCREEN80,SAVER. Ulrich 
Stiehl 4/85/76 

Produkt: Akustikkoppler AK 300. 4/85/ 
77 

Produkt: Akustikkoppler dataphon s-21- 
d. 4/85/77 

Produkt: Parallelportkarte für Apple Il, 4/ 
85/77 
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DOS 3:3: Der File-Manager des DOS 
3.3. Harald Grumser., 5/85/6 

Hardware: Balfer-Interface. RAM-Disk- 
Driver für Apple Ile. Ulrich Stiehl. 5/85/ 
12 

Grafik: PLOT 2.0. Ein komfortabler 
Funktionsplotter. Hans-Martin Eng. (Be- 
richtigung 9/85/69) 5/85/17. 

Grafik: CONVERT560. Konvertierungs- 
routine für  Double-Hires-Drucker- 
Dump. Marc van Woerkom. 5/85/25 
Assembler: Disassembler für „gehei- 
me“ 6502-Opcodes. Christoph Bregler. 
5/85/31 

Pascal: Transzendente Funktionen in 
Pascal. Dieter Geiß. 5/85/35 

CP/M: Das CP/M-Directory näher be- 
leuchtet, Der Aufbau von 16-Sektor- 
CP/M-Disketten. Dr. Jürgen B. Kehrel. 
5/85/39 

Macintosh: Apple-Il-Monitor für den 
Mac. Wie zu Wozniaks Zeiten, Pit Capi- 
tain. 5/85/41 

Applesoft: INPUT für alle Fälle. Tastatur 
— DOS - ProDÖOS, Harald Grumser, 5/ 
85/50 
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ProDOS: Block-Tracer für ProDOS, Ul- 
rich Stiehl. 5/85/51 

ProDOS: FORMAT-Befehl für ProDOS. 
Ulrich Stiehl. 5/85/56 

Kurzbericht: Neologismen in der Com- 
putersprache. Ulrich Stiehl. 5/85/60 
Kurzbericht: Kopierschutz für den Ap- 
ple Il. Matthias Greve, 5/85/61 
Kurzbericht: Apple-Kompatible. Hans- 
Kurt Kuhn. 5/85/66 

Vermischtes: Hotline. 5/85/68 
Leserbriefe: 5/85/70 

Applesoft: RANDOM.DEMO. Random- 
Zahlen-Generator, Ulrich Stiehl. 5/85/ 
69 

Applesoft: COLUMN80.DEMO. VTAB- 
HTAB-Demo, Ulrich Stiehl. 5/85/69 
Test: Slim-Line-Laufwerk von Chinon. 
S/S8o/ 

Test: Druckerumschaltung per Knopf- 
druck. 5/85/71 

Test: The Last Disk-Utility. Ein umfang- 
reicher Disketteneditor, Harald Grum- 
ser. 5/85/72 

Assembler: Tabelle der Interpreter- und 
Monitor-Adressen. 5/85/72 
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Grafik: Graf-quattro. Teil 2: Schneller 
als der Schall, Nino G. Barbieri. (Ergän- 
zung 10/85/69) 6/85/6 

Grafik: Das Farbbit. Pseudo-Double-Hi- 
res auf dem Apple || Plus. H.-D, Sie- 
wert. 6/85/16 

Grafik: Superdump. Das universelle Hi- 
res-Grafik-Dump-Programm. Jürgen 
Geiß. (Ergänzung 8/85/50) 6/85/22 
Drucker: Hardcopy auf Olympia ESW 
100 RO. Ein Typenraddrucker wird gra- 
fikfähig. Ralf Menssen. 6/85/34 
Technik: Fourier-Analyse, Peter Walber. 
(Berichtigung 9/85/69) 6/85/38 
Applesoft: Applesoft-Erweiterungen. Ei- 
ne Sammlung von Ampersand-Routi- 
nen. Markus Enzinger. 6/85/43 

Pascal: RAM-Disk-Driver für Pascal 1.1. 
Michael Schröter, (Berichtigung 7/85/ 
52) 6/85/48 

ProDOS: ProDOS. Theorie und Praxis. 
Ulrich Stiehl. 6/85/52 

CP/M: Apple-CP/M. Mit einem RAM- 
Disk-Driver für die 64K-Karte. Karl-Wal- 
ter Bott. 6/85/55 

Hobby: SOLITAIRE und wie man es 
löst. Stefan Maas. 6/85/64 

Leserbriefe: 6/85/69 

Kurzbericht: Wie gibt man Maschinen- 
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programme ein? 6/85/70 

Kurzbericht: An Ear to the Ground, Ul- 
rich Stiehl 

Test: Extended Graphic System. Dr. 
Jürgen B. Kehrel. 6/85/71 

Nachtrag: Terminal-Programm für die 
Super-Serlal-Card. Ändreas Lecreux, 
6/85/72 

Test: Diversi-DOS 4-C. Rudolf Röte- 
ring. 6/85/72 

Vermischtes: Divers!-DOS 2-C auf 
Peeker-Sammeldiskette #6. (Ergän- 
zung 10/85/69) 6/85/74 

Test: Lasar Il ze, Harald Grumser, 6/85/ 
75 

Test: Typenradschreibmaschine Bro- 
ther CE 50. Rainer Gerdes. 6/85/76 
Test: Editierhilfen für den Apple. Franz- 
Josef Hüskens, 6/85/77 

Test: Lernprogramme von INTUS, Dr, 
Jürgen B. Kehrel. 6/85/78 
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Hobby: Pyramid Pitty. Ein Reaktions- 
spiel. Michael Matzat. 7/85/6 

Technik: Die AP33-Megawarp-RAM- 
Karte. Mit einem RAM-Disk-Driver für 
ProDOS. Ulrich Stiehl. 7/85/8 

Technik: FORMATTER. Ein universelles 
Formatierungsprogramm. Arne Schä- 
pers. (Ergänzung 9/85/69) 7/85/20 
Technik: Bit-Editor.  Zeichensatz- 
EPROMSs für die Videx-Karte. Joachim 
Klamt. 7/85/29 

Assembler: 6502 leicht gemacht. Ulrich 
Stiehl. 7/85/33 

Nachtrag: Nachtrag zum Pascal-RAM- 
Disk-Driver. 7/85/52 

CP/M: Wordstar mit allen FX-80-Schrift- 
arten. Dipl.-Ing. H.A. Rohrbacher. 7/85/ 
57 

Hobby: Pascal-Preisausschreiben. 7/ 
85/62 

Kurzbericht: No Orchids für Miss Lisa. 
Lisa und die Folgen. Ulrich Stiehl. 7/85/ 
67 

Assembler: Hex-Dez-Konvertierung für 
32-Bit-Zahlen. Harald Grumser. 7/85/ 
69 

Assembler: Vorlesestunde. Apple und 
S.A.M., ein hilfreiches Gespann. Dr, 
Jürgen B. Kehrel. 7/85/71 

Leserbriefe: 7/85/73 

Test: MEGACORE. Festplatte mit 10 
MBytes. Harald Grumser. 7/85/76 
Test: Star Delta-10 und Grafstar-Inter- 
face. Karl-Walter Bott. 7/85/77 


74 


Nr. 8/85 August 


Eat ar 5 La ei TE 


DEEKER? 


MAGAZIN FÜR APPLE-COMPUTER 
Ladmentheihpengternm 
2; Bat 
ee ent 
Mi Aare dena ne IA 








Heft 8/85 


Technik: Testprogramm für Apple-Il- 
Diskettensysteme. Analyse von Disket- 
ten, Laufwerk und Controller. Dipl.-Ing. 
Gerhard Berg. 8/85/6 

ProDOS: ProDOS für Anfänger. Teil 3: 
Geheimnisse von BSAVE und BLOAD. 
Ulrich Stiehl, 8/85/18 

Grafik: Graf-quattro. Teil 3: Tricks über 
Trieks. Nino G. Barbieri, 8/85/24 
Grafik: Double-Lores-Applesoft-Erwei- 
terungen. Karl-Waiter Bott. 8/85/32 
CP/M: Adreßverwaltungsprogramm mit 
dBASE Il. Ing. (grad.) Ernst Fischer. (Er- 
gänzung 10/85/21) 8/85/40 

CP/M: Wordstar druckt internationale 
Zeichensätze. Frei definierte Sonder- 
zeichen auf dem FX-80 nutzen. Dipl.- 
Ing, H,A, Rohrbacher. 8/85/45 

Pascal: Tips und Tricks in Pascal, Teil 1: 
Die versteckte Prozedur „Idsearch“ 
oder wie man Schlüsselwörter halbfett 
druckt. Dieter Geiß, 8/85/48 

Nachtrag: SUPERDUMP und Apple Ilc. 
8/85/50 


Assembler:  Assembler-Pseudo-Op- 


code-Referenztabelle. Dr. Jürgen 
B. Kehrel. 8/85/51 
Assembler: Fakultäten. Roland und 


Manfred Fietkau. 8/85/56 

Macintosh: Microsoft Basic leicht ge- 
MACHt. Teil 4: Die Grafik, Pit Captain. 8/ 
85/60 

Hobby: Grafik-Demonstrationen. Ralf 
Knoke. 8/85/67 

Kurzbericht: Applepreise = Mondprei- 
se? Ulrich Stiehl. 8/85/67 

Nachtrag: Diversi-DOS 2-C. 8/85/68 
Hobby: Zeichenjagd. Ein Einzeiler. 
Hans-Peter Lendle. 8/85/69 

Test: Die Polaroid-Foto-Systeme, Tho- 
mas Bühner und Prof, Dr. Klaus Haus- 
mann. 8/85/71 

Produkt: Das Bildverarbeitungssystem 
NAGIC. 8/85/74 

Kurzbericht: Siemens entdeckt neue 
Primzahl. 8/85/74 

Produkt: TRICARD — Multifunktionskar- 
te für Apple lle. 8/85/74 

Produkt: Copy-Killer jetzt in deutsch. 8/ 
85/76 

Produkt: Microfloppy mit2x 1 MByte. 8/ 
85/76 

Test: ProDOS-Debugger BUGBYTER. 
Dr. Jürgen B. Kehrel, 8/85/76 

Test: Beagle Graphics. Rolf W, Becker. 
8/88/77 
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Recht: Ave auctor, plagiarii te salutant. 
Software und Zitatrecht. Ulrich Stiehl, 9/ 
85/6 

Recht: Urheberrechtsnovelle. 
Stiehl, 9/85/11 

DOS 3.3: Ein neues FID für DOS 3,3; 
Mit Auto-FID für RAM-Disk-Besitzer. 
Harald Grumser. 9/85/12 

ProDOS: ProDOS-Fastboot oder wie 
man ProDÖS in 6 Sekunden bootet. 
Arne Schäpers. Nach einer Idee von 
Ulrich Stiehl. 9/85/20 

Hardware: Super-HGR für NEC- und 
ITOH-Drucker. Rainer Hammerschmidt, 
9/85/30 

Applesoft: Umwandlung in Großbuch- 
staben. Harald Grumser. 9/85/31 
Assembler: Flag Monitor. Eine Taktzäh- 
ler-Utility, Michael G. Schneider. 9/85/ 
32 

Pascal: Tips und Tricks in Pascal. Teil 2: 
Kann man den P-Code optimieren? 
Dieter Geiß. 9/85/40 

MBASICG:; MBASIC für den Applesoft- 
Profi. Jörg Lange. 9/85/48 

Hobby: Pascal-Preisausschreiben, Die 
Gewinner. 9/85/58 

Händler-Profil: HIB. Der Computerladen 
in Nürnberg. 9/85/59 

Test: Erfahrungsbericht OPERATOR |. 
Rainer Hammerschmidt. 9/85/60 

Test: Die OPERATOR Ile. Harald Grum- 
ser. 9/85/60 

Test: Dazzle Draw und Mousepaint. 
Dieter Charchot. 9/85/61 

Test: DMP-Charger — eigene Zeichen- 
sätze auf dem Matrixdrucker. Harald 
Grumser. 9/85/62 

Test: Apple Il/lle Assembler-Kurs. Dr. 
Jürgen B. Kehrel. 9/85/62 

Test: Deutsche Sprachausgabe für den 
Apple. Harald Grumser. 9/85/63 
Kurzbericht: 512K für Apple Ill. 9/85/64 
Kurzbericht: Apple Ile-Emulation für 
Apple Ill. 9/85/64 

Kurzbericht: Lisa/Mac-Screenswitcher. 
9/85/64 

Kurzbericht: 640K-Drive für Ilc. 9/85/64 
Kurzbericht: Apple-Paketpreise. 9/85/ 
64 
Kurzbericht: 
64 
Kurzbericht: Mactablet, 9/85/64 
Kurzbericht: Macpack. 9/85/64 
Kurzbericht: Incircuit-Emulator. 9/85/64 
Kurzbericht: Erno Unibox. 9/85/65 


Ulrich 


Apple-Geschichte. 9/85/ 





Kurzbericht: Apple-Kompatibler MK Il, 
9/85/65 

Kurzbericht: 20M-Festplatte für Mac. 9/ 
85/65 

Kurzbericht: Appletalk für Macintosh. 9/ 
85/65 
Kurzbericht: 
AULA. 9/85/65 
Kurzbericht: Laserwriter von Apple. 9/ 
85/65 

Kurzbericht: Design-Preise für Apple 
IIc. 9/85/65 

Kurzbericht: Spooler für Epson-Druk- 
ker. 9/85/65 

Kurzbericht: Transfer II Terminalpro- 
gramm. 9/85/65 

Kurzbericht: Druckertisch. 9/85/66 
Kurzbericht: Notstromaggregat. 9/85/ 
66 

Leserbriefe: 9/85/66 

Vermischtes: Paul Lutus im ZDF, 9/85/ 
68 

Vermischtes: Visicalc eingestellt, 9/85/ 
68 

Vermischtes: Pyramid Pitty als Hex- 
Dump? 9/85/68 

Nachtrag: Fourier-Analyse, 9/85/69 
Nachtrag: Formatter. 9/85/69 

Nachtrag: PLOT 2.0. 9/85/69 
Kurzbericht: Pressestimmen zur Wirt- 
schaftslage von Apple. 9/85/69 
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Grafik: Graf-quattro. Teil 4: Der Grafik- 
Editor. Nino G. Barbieri, 10/85/6 
Grafik: Applesoft-Interpreter-Erweite- 
rungen für Double-Hires. Dr, Wolfgang 
Braun. 10/85/14 

Nachtrag: Tips zur Konvertierung der 
Adreßverwaltungs-Dateien von DOS 
3,3 nach GP/M. 10/85/21 

Hardware: Die neuen ROMs für den 
Apple Ile. Teil 1: Grundlagen. Teil 2: 
Standardein- und -ausgabe. 10/85/22 
Uirich Stiehl 

Hardware: Die neuen ROMs für den 
Apple Ile. Teil 3: Applesoft-Interpreter. 
Harald Grumser. 10/85/34 

Hardware: EPROM-Programmiergerät 
tür den Apple Il. Dr, Roland Schule. 10/ 
85/40 

Pascal: Pascal-Kompaktkurs für Ap- 
plesoft-Programmierer,. Hinweis für 
Sammeldisk, Ulrich Stiehl. 10/85/46 
Recht: Rechtsprechung zum Software- 
Urheberrecht. RA Dieter Naber. 10/85/ 
47 


Peeker 12/85 


Pascal: Tips und Tricks in Pascal. Teil 3: 
P-Code-Cruncher für 128K-Pascal. 
Dieter Geiß, 10/85/50 

Pascal: Pascal 1.2. Eine Richtigstellung. 
Bernard Condrau. 10/85/60 

Nachtrag: Schwierigkeiten mit den 
Graf-quattro-Cursoren. Nino G. Barbie- 
ri. 10/85/63 

Hobby: Was ist Logo? Eine Kurzeinfüh- 
rung. Kurt Rudt. 10/85/64 

Hobby: Puzzle mit der Maus. Joachim 
Mette. 10/85/65 

Buch: Lerne BASIC auf dem Apple. 10/ 
85/67 

Buch: Mathematik auf dem Apple Il, Ile, 
IIc. 10/85/67 

Buch: Trainingsbuch zu APPLESOFT- 
BASIC. 10/85/67 

Buch: Apple Il für Technik und Wissen- 
schaft, 10/85/67 

Buch: Macintosh (Anwenderhandbuch), 
10/85/67 

Buch: Macintosh. 10/85/67 

Buch: Das Apple Macintosh Buch, 10/ 
85/67 

Leserbriefe: 10/85/68 

Test: Speedemon-Karte. Ulrich Stiehl. 
10/85/71 

Test: Die 16K-Akku-Karte LC-85. Ha- 
rald Grumser. 10/85/72 

Test: Zwei neue Apple-Ile-Kompatible. 
Apple-lle-Kompatibler SCSe. Jürgen 
Geiß. 10/85/73 

Test: Zwei neue Aplle-Ile-Kompatible. 
Apple-Ile-Kompatibler SCSes. Harald 
Grumser. 10/85/74 


Kurzbericht: 4.000 Frei-Programme. 
10/85/75 
Kurzbericht:  Buchhaltungsprogramm 


BUCH, 10/85/75 

Kurzbericht: Präsentationsgrafiken mit 
(G}ROGRAF. 10/85/75 

Kurzbericht: Melco-Druckpuffer von 
Watanabe. 10/85/75 

Kurzbericht: Digitalisiertabletts höchster 
Präzision, 10/85/75 

Kurzbericht: Neuer Apple-Kompatibler. 
10/85/75 

Kurzbericht: Flugsimulator mit deut- 
scher Anleitung. 10/85/75 

Kurzbericht: OKI-Drucker für Apple Il, 
10/85/76 

Kurzbericht: Macprint-Satzsystern. 10/ 
85/76 
Kurzbericht: 
10/85/76 
Kurzbericht: Turbo-Lader Graph. 10/ 
85/76 

Kurzbericht: Sound Sampling System. 
10/85/76 

Kurzbericht: Apple dementiert „Heute 
Journal“. 10/85/76 
Kurzbericht: Apple GmbH 
Stammkapital, 10/85/76 
Kurzbericht: Apple-Händler-Netz um- 
strukturiert. 10/85/76 

Kurzbericht: MAUS: Mac an Hochschu- 
len. 10/85/76 

Kurzbericht: Mac-Leasing für Studen- 
ten: 10/85/76 

Kurzbericht: Leasing von Apple-Com- 
putern. 10/85/76 

Kurzbericht: BTX für Apple Ilc, 10/85/ 
Zr 

Kurzbericht: Teletex für den Apple Il. 
10/85/77 

Kurzbericht: Mac-Pressekonferenz bei 
Apple in München. Harald Grumser. 10/ 
85/77 


Macprolog2-Interpreter. 
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Grafik: Trickfilmgrafik für Spielprogram- 
me. Mit einem Sprite-Editor, Bernd Kla- 
wonn. 11/85/6 

Drucker: Großformatiger HGR-Aus- 
druck. Mark Liebrand. 11/85/20 

DOS 3.3: Disk-Chirurg. Ein Programm 
zur Überprüfung schadhafter Disketten- 
sektoren. Wolf-J, Faust, 11/85/24 
ProDOS: ProDOS-Anpassung für Lauf- 
werke mit 40 bis 160 Spuren. Horst 
Hanke und Hans-Georg Hüneke. 11/ 
85/29 

Assembler: Z80-Assembler-Program- 
mierung unter CP/M. Dr. H. Kersten. 
1185733 

Applesoft: Print-Using, Rechtsbündige 
Zahlenformatierung. Ulrich Stiehl. 11/ 
85/49 

Applesoft: Referenztest. Zeilenverwei- 
se in Applesoft-Programmen. Ludger T, 
Engbert, 11/85/55 

Pascal: Tips und Tricks in Pascal. Teil 4: 
Die Compiler-Optionen. Dieter Geiß. 
11/85/57 

Test: Utilities von Beagle Brothers. 
Franz-Josef Hüskens. 11/85/65 

Test: Triple-Dump. Ein Bildschirm- 
Druckprogramm. Rolf W. Becker. 11/ 
85/66 

Test: Diversi-DOS 4.1-C mit Garbage- 
Collection. Rudolf Rötering. 11/85/67 
Test: BASF-Flexydisk 1X und 1D, Ulrich 
Stiehl. 11/85/68 

Test: Die Microsoft-Premium-Softcard 
für den Apple Ile. Ulrich Stiehl, 11/85/ 
70 

Vermischtes: Peeker-Sammeldisketten 
#1-#11, 11/85/71 
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Hobby: Cosmo-Grumble. Ein Welt- 
raum-Action-Spiel. Oliver Steinmeier 


und Alexander Niemeyer. 12/85/6 
Drucker: Imagewriter kurz und bündig. 
Die wichtigsten Steuerbefehle. Thor- 
sten Schunk, 12/85/8 

Grafik: ASCII-Text im HGR-Bildschirm. 
Mit einem Zeichengenerator-Pro- 
gramm. Markus Geltenpoth. 12/85/16 
Applesoft: Komfortabler INPUT von 
Strings. Ulrich KuBmann, 12/85/20 
Applesoft: Tabelle der wichtigen Ap- 


plesoft-Interpreter-Routinen. Harald 
Grumser. 12/85/30 
Pascal: Pascal-Kompaktkurs. UCSD- 


und Turbo-Pascal. Teill: Grundlagen für 
Applesoft-Programmierer. Ulrich Stiehl, 
12/85/33 
Vermischtes: Richtlinien für Autoren. 
12/85/61 
Turbo: GP/M-56K-RAM-Disk unter Tur- 


bo-Pascal, Bernd Eichinger-Wiesch- 
mann, 12/85/62 
Kurzbericht: Kleine Mikrocomputer- 


Chronik. Ulrich Stiehl. 12/85/64 
Leserbriefe: Pascal-Leserbriefe. 12/85/ 
68 

Vermischtes: Jahresinhaltsverzeichnis. 
Peeker 1/84 bis 12/85. 12/85/72 

Test: MS-Basic 2.0 für den Mac. Pit 
Capitain. 12/85/76 

Produkt: Kyan-Pascal. 12/85/77 


, 
Fo 
= 


Ältere Peeker-Hefte können für DM 6,50 pro Heft 
zuzüglich Versandspesen angefordert werden. Ver- 
gritffene Hefte sind als Photokopien für DM 10,— pro 


Heft erhältlich. 


Dr. A. Hüthig Verlag - Postf. 102869 - 6900 Heidelberg 








Jahresinserenten- 
verzeichnis 1985 


aaa-electronic, Freiburg 

ABACOMP GmbH, Frankfurt 

AFC Computer GmbH, Köln 
APPLELAND WALLISER & Co. Heil- 
bronn 

Beam-Verlag, Marburg 

Brainware GmbH, Wiesbaden 

Gerhard Brecht, Stuttgart 

Bühler Elektronik, Baden-Baden 

CCP Datentechnik, Hamburg 
COMPTRON Hoffmann, Computertech- 
nik, Kiel 

Computerladen, Memmingen 
Computerware, Frankfurt 

Copy-Team, Erlangen 

CP/D, Düsseldorf 

CPS Datenservice, Offenbach 

CVB Computervertrieb, Hamburg 
Jürgen Dahlhoff' Computertechnik, 
Soest 

DATA BECKER GmbH, Düsseldorf 
Deutsche Rechner Gesellschaft, Drei- 
eich 

Digitalanalog, Krombach 
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D.O,S. Computersysteme, Schwäbisch 
Hall 


Electronic Spezial Service GmbH, 
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A 

Intus Lern-Systeme AG, Astano 
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ken 1 
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Erich-Willi Meyer, Frohnhausen 
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SCS Sander Computer Systeme, Rem- 
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TLK Hard- und Software, Münster 
Tombstone Micro, Berlin 

UCD Computersysteme, Freiburg 
Ueding Electronics, Menden 

VOBIS, Aachen 

Weidemann Electronic, Rengsdorf 
Karl-Heinz Weiss, Wilhelmshaven 
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Seit einiger Zeit Ist eine neue Ver- 
sion des Microsoft-Basic für den 
Macintosh erhältlich, nämlich die 
Version 2.0. Da die bisherige Ver- 
sion 1.0 bereits im Peeker ausführ- 
lich beschrieben worden ist (s. 2/ 
84, 1/85, 4/85, 5/85, 8/85), wer- 
den hier nur die Besonderheiten 
der Neuversion vorgestellt. 

Die alte Version 1.0 des Basic war 
von Microsoft recht schnell (etwas 
voreilig?) auf den Markt gebracht 
worden, und das merkte man ihr 
auch an. Sie war sehr langsam und 
unterstützte nur wenige Möglich- 
keiten des Macintosh. 

Nun gibt es die neue Version 2.0, 
die zwar schon besser ist, aber im 
Vergleich zu anderen Programmen 
für den Mac immer noch Wünsche 
offen läßt. Microsoft schreibt denn 
auch im neuen Handbuch : „MS- 
Basic is always growing, changing, 
and improving.“ Dies erscheint mir 
persönlich auch notwendig. 


Der äußere Eindruck 


Das Handbuch zu der neuen Ver- 
sion ist besser geworden. Vor al- 
lem die ROM-Routinen, die man 
von Basic aus aufrufen kann, sind 
nun recht ausführlich dokumen- 
tiert, 

MS-Basic 2.0 gibt es in zwei unter- 
schiedlichen Formen: eine dezi- 
male Version für den kaufmänni- 
schen Bereich (wie Version 1.0) 
und eine binäre Version für den 
wissenschaftlichen Bereich 
(schnellere Arithmetik). 

Der Unterschied zwischen beiden 
Versionen liegt einzig in der Art, 
wie Zahlen intern dargestellt wer- 
den. So gering dieser Unterschied 
auch erscheinen mag, die Basic- 
Programme laufen nur unter einer 
der beiden Versionen, nicht mit 
beiden! 

Nachdem man eine der beiden Ba- 
sic-Varianten gestartet hat, sieht 
man gleich an den Menüs, daß sich 
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= DieMenues: 
EZ] MENU 1,0, 1, "Ablage" 


Find... Et 
Sind Nent Hi 
Find seieried Tert 
| ind Lasst — 
NT BLTEHENEnT 

Replace... 


MENU 2,0, |, "Beäarbeiten” 
MENU 3,0, |, "Fenster 


| MENU 4,0, 1, "Kontrolle" 


etwas verändert hat, 

Die Befehle des „Edit“-Menüs 
kann man nun endlich auch über 
die Tastatur aufrufen, was sehr an- 
genehm ist. Daneben gibt es ein 
„Ssearch“-Menü, mit dem man be- 
stimmte Stellen im Programmtext 
suchen bzw. ersetzen kann. Im 
„Run“-Menü gibt es den Befehl 
„Step“, mit dem man Programme 
Schritt für Schritt durchtesten 
kann. Wie das dann auf dem Bild- 
schirm aussieht, zeigt Abb. 1. Der 
Befehl, der gerade ausgeführt 
wird, ist umrahmt. Das neue „Win- 
dows“-Menü dient zum Öffnen der 
unterschiedlichen Fenster. 

Die beste Änderung für das Arbei- 
ten mit dem Basic besteht darin, 
daß der Editor nun endlich bild- 
schirmorientiert arbeitet. Das be- 
deutet, daß man nicht mehr nur 
einzelne Zeilen auf einmal bearbei- 
ten kann, sondern mehrere Zeilen 
und beliebige Abschnitte gleich- 
zeitig. 

Das Editieren geschieht direkt im 
„List"-Fenster. Man erspart sich 
also das mühsame Kopieren der 
Zeilen in das Kommandofenster. 
Das „List“-Fenster hat sich übri- 
gens noch weiter verbessert: Zum 
einen werden die Basic-Befehle 
fett gedruckt, was die Lesbarkeit 
der Programme deutlich erhöht 
(siehe Abb. 1), zum anderen läßt 
sich das Fenster ganz einfach ver- 
größern. Mit einem Doppelklick in 
der Titelzeile wird das Fenster so 
groß wie der ganze Bildschirm. 
Nach einem erneuten Doppelklick 
schrumpft es wieder automatisch 
auf die alte Größe zusammen. 


Labels und Subprograms 


Der bedeutsamste Unterschied 
zum Basic 1.0 ist: Man braucht kei- 
ne Zeilennummern mehr! Das 
heißt, man kann Zeilen entweder 
gar nicht oder mit einem Label im 
Klartext markieren (siehe Abb. 1). 
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Dadurch ist das Programmieren 
sehr viel komfortabler geworden. 
Man kann zum Beispiel schnell 
einmal einen Abschnitt des Pro- 
gramms an eine andere Stelle ver- 
schieben, ohne daß man gleich alle 
Zeilen neu durchnumerieren muß. 
Wenn man unbedingt will (oder 
wenn einem keine neuen Labels 
mehr einfallen), kann man natürlich 
auch Zeilennummern verwenden. 


Eine weitere Änderung, die das 
Programmieren erleichtert, ist die 
Möglichkeit, sogenannte „Subpro- 
grams“ zu schreiben. Es handelt 
sich hierbei um spezielle Unterpro- 
gramme. Sie haben eigene (lokale) 
Variablen, die nichts mit den Varia- 
blen außerhalb des Unterpro- 
gramms zu tun haben (ähnlich wie 
bei den Prozeduren in Pascal). An 
diese Unterprogramme können, 
ebenfalls wie in Pascal, Parameter 
übergeben werden, wobei sogar 
Arrays mit variabler Länge zuge- 
lassen sind (wie in Modula). Die 
lokalen Variablen behalten ihren 
Wert von Aufruf zu Aufruf bei, was 
ebenfalls vorteilhaft sein kann. 
Leider können solche Unterpro- 
gramme nicht verschachtelt und 
auch nicht rekursiv aufgerufen 
werden. 


Töne, Bilder und Fenster 


Das MS-Basic 2.0 wurde in einigen 
neuen Punkten an die Fähigkeiten 
des Macintosh angepaßt. 

Mit den Befehlen „SOUND“ und 
„WAVE" kann man Töne erzeu- 
gen. Dabei können bis zu vier 
Stimmen gleichzeitig mit unter- 
schiedlichen Hüllkurven erzeugt 
werden. Die Töne werden — wie 
beim Mac üblich — „asynchron" 
ausgegeben, d.h. das Programm 
läuft weiter, während die Musik 
spielt. Dadurch verlangsamt sich 
dann natürlich die Ausführung des 
restlichen Programms. 

Bisher konnte man Texte von an- 
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deren Mac-Programmen über das 
„Clipboard“ in Basic-Programme 
übernehmen. Das gleiche ist nun 
auch mit Bildern möglich. 

Diese Bilder kann man auch durch 
ein Basic-Programm selbst erzeu- 
gen und auf dem Bildschirm aus- 
geben lassen. Dafür gibt es die 
„PICTURE“-Befehle. Die Bilder 
können natürlich auch auf dem 
Imagewriter ausgedruckt werden. 
Neben diesen nützlichen Eigen- 
schaften kann man beim Basic 2.0 
vor allem auch solche Programme 
schreiben, wie man sie vom Mac- 
intosh her kennt, also mit eigenen 
Menüs, eigenen Fenstern, Dialog- 
boxen usw. Dazu dienen die Be- 
fehle „MENU", „WINDOW, 
„DIALOG u.a. 

Ein solches Programm kann zu- 
nächst seine Menüs und Fenster 
erzeugen und dann so lange war- 
ten, bis der Benutzer etwas mit der 
Maus anwählt. Danach werden die 
entsprechenden Unterprogramme 
aufgerufen, und das Ganze wie- 
derholt sich so lange, bis das Pro- 
gramm beendet ist. 

Ein Beispiel hierfür zeigt Abb. 2. 
Diese Programme sehen zwar gut 
aus, aber die Erzeugung der Me- 
nüs und Fenster ist recht aufwen- 
dig. Auch sind solche Programme 
langsamer als die „normalen“ 
Basic-Programme. 


Fazit 


Die neue Version 2.0 des MS-Ba- 
sic hat viele Schwachstellen der 
alten Version 1.0 beseitigt. Das 
Programmieren ist deutlich kom- 
fortabler geworden. Da die Fähig- 
keiten des Macintosh nun eben- 
falls in höherem Maße unterstützt 
werden, kann man den Basic-Pro- 
grammierern dieses Basic emp- 
fehlen, wenngleich die Programm- 
ausführung immer noch nichts mit 
der Geschwindigkeit eines 16-Bit- 
Computers zu tun hat. 
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Kyan-Pascal 
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Kyan-Pascal ist ein völlig neuartiges Pascal-System für den Apple II+/e/c, das von der Firma Kyan Software in San Francisco 
entwickelt wurde und als Version 1.0 im April dieses Jahres erstmals ausgeliefert wurde. Inzwischen gibt es die neueste Version 


1.2 vom 14. August 1985. 


Vor- und Nachteile von Kyan-Pascal 


1. UCSD-Pascal-Implementierungen für 
den Apple Il laufen zwar unter dem 
6502-Prozessor und sind deshalb auf 
den Apple bestmöglich angepaßt, 
doch wird nur der relativ langsame 
Pseudo-Code erzeugt. Z80-Pascal- 
Implementierungen sind demgegen- 
über zwar in der Regel als Vollcompi- 
ler ausgelegt, doch wird erstens eine 
Z80-Karte benötigt und zweitens läßt 
die Anpassung an den Apple Il, z.B. 
bezüglich der HGR-Grafik, zu wün- 
schen übrig. 


Kyan-Pascal erzeugt einen echten 
6502-Objektcode. Es vereinigt damit 
die Geschwindigkeitsvorteile eines 
Vollcompilers mit der bestmöglichen 
Anpassung an den Apple Il. 


2. Kyan-Pascal läuft unter allen denkba- 
ren Apple-Konfigurationen (ll+/e/c). 
Man kann es bereits mit Nutzen ein- 
setzen, wenn man nur über eine Mini- 
malkonfiguration mit Apple II+/e oh- 
ne 80-Zeichenkarte und ohne zweites 
Laufwerk verfügt, weil auf der (unge- 
schützten) Programmdiskette noch 
über 40.000 Bytes für die Arbeitsdatei 
frei sind. Wer besser ausgestattet ist, 
kann eine 80-Zeichenkarte, ein zwei- 
tes Laufwerk sowie eine RAM-Disk 
verwenden. 


3. Kyan-Pascal läuft unter dem (mitge- 
lieferten) Betriebssystem ProDOS 
und kann deshalb auch in Verbindung 
mit größeren Massenspeichern (Fest- 
platten sowie 80-Spur-Disketten 
usw.) problemlos eingesetzt werden. 


4. Im wesentlichen besteht Kyan-Pascal 
aus einem sehr brauchbaren Full- 
screen-Editor {in zwei Versionen für 
40- und 80-Zeichendarstellung), der 
auch als Textverarbeitungsprogramm 
benutzt werden kann, einem Compi- 
ler und einer Runtime-Library (Biblio- 
theksdatei). 


. Der Kyan-Pascal-Befehlssatz 


Fertig compilierte Programme können 
in Verbindung mit der Bibliotheksdatei 
unabhängig von Kyan-Pascal als Pro- 
DOS-Systemdateien gestartet wer- 
den. Die Weitergabe der Runtime- 
Library wird von der Firma Kyan Soft- 
ware ohne Zahlung von Lizenzgebühr 
gestattet. 


lehnt 
sich eng an Standard-Pascal an, so 
daß beispielsweise Befehle wie GO- 
TOXY usw. fehlen. Für String-Verar- 
beitung und HGR-Grafik werden je- 
doch Include-Dateien mitgeliefert. 
Dieser zunächst gravierend erschei- 
nende Nachteil wird jedoch — wie wir 
meinen — durch zwei entscheidende 
Vorteile aufgehoben: 


a) Ein laufendes Kyan-Pascal-Pro- 
gramm befindet sich in der von Apple- 
soft her gewohnten Monitor-Umge- 
bung, d.h. der Pascal-REÄADLN- 
Befehl wird z.B. durch die Monitor- 
Routine GETLN (entspricht dem 
Applesoft-INPUT-Befehl) realisiert. 
Der Aufruf von Monitor- oder gar 
Applesoft-ROM-Routinen ist deshalb, 
wenn man auf die Zero-Page Rück- 
sicht nimmt, grundsätzlich möglich. 


b) In einen Kyan-Pascal-Queiltext 
können beliebig viele echte 6502- 
Quelltexte eingebaut werden. Man 
kann deshalb Kyan-Pascal auch als 
6502-Assembler benutzen. Ein Bei- 
spiel-Programm macht dies deutli- 
cher: 


PROGRAM DEMO; 
BEGIN 
WRITELN (Jetzt 6502’); 
4#a {Beginn Assembler} 
HOME EQU $FC58 
BELL EQU $FBDD 
JSR HOME ;Bildschirm löschen 
JSR BELL ;Piepston ausgeben 
{usw.} 
#{Ende Assembler} 
WRITELN (‘Das war 6502’); 
END. 


Auf diese Weise ist es prinzipiell 
möglich, beliebige Assemblerrouti- 
nen in Kyan-Pascal-Programme ein- 
zubauen und darüber hinaus die in 
Standard-Pascal nicht vorhandenen 
Befehle zu kompensieren. 


6. Kyan-Pascal scheint uns sowohl für 
Anfänger, insbesondere auch im 
Schulunterricht, als auch für Fortge- 
schrittene bestens geeignet zu sein. 
Anfänger können sich auf den Stan- 
dard-Befehlssatz beschränken, wäh- 
rend Fortgeschrittene die Assembler- 
Features ausnutzen können. Übri- 
gens erzeugt Kyan-Pascal beim 
Compilieren ein echtes 6502-Quell- 
code-Listing, und zwar auch für die 
Pascal-Befehle, so daß ein nachträgli- 
ches Optimieren des Assembler- 
Quellcodes möglich ist. 


Einladung zum Sammelbezug 


Kyan-Pascal kostet in den USA 69.95 
Dollar. Unter Berücksichtigung der Aus- 
landseinfuhr- und Überweisungskosten 
muß man umgerechnet über DM 200,—- 
bezahlen. Damit Sie diese interessante 
Pascal-Implementierung so günstig wie 
möglich beziehen können, bieten wir 
Ihnen als Peeker-Serviceleistung die 
Teilnahme am Sammelbezug an. Als 
Stückpreis haben wir DM 170,- (inkl. 
Porto, Verpackung und MwSt) festgelegt. 
Voraussetzung hierfür ist allerdings, daß 
eine ausreichende Anzahl von Vorbe- 
stellungen eingeht. Werten Sie bitte die- 
se Aktion als einen Versuch, Software im 
Sammelbezug preiswert zu erwerben. 
Sollten sich nicht genügend Interessen- 
ten melden, so müssen wir dieses 
Service-Angebot wieder vergessen. 
Kyan-Pascal ist freilich auch bei ein- 
schlägigen Importeuren (für z. Zt. ca. DM 
270,-) erhältlich. 


Wie wird’s gemacht? Senden Sie uns bis 
spätestens 31.1.1986 Ihre Bestellung über 
Kyan-Pascal zum Preis von DM 170,- inkl. 
Versandspesen. Teilnehmen können alle 
Peeker-Leser. Ihre Peeker-Redaktion 
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Vorschau auf Peeker 1/86 


Wie funktioniert Quicksort? 
Mit einem Äpplesoft-Demo 


Superschnelles Quicksort in Assembler 


Vokabeltrainer in Applesoft 
Mit 1000 Wörtern Deutsch-Englisch 


Applesoft-Grafik-Erweiterung 


PROTODOS 
Konvertierung von ProDOS- in DOS-Textfiles 


Designer 
Zeichensatz-Generator in UCSD-Pascal 


Read-Pascal 
Konvertierung von UCSD- in Turbo-Textfiles 


Der Apple Ile als Werkzeug für Betriebswirte 
Mit Simplex-Anwendungsbeispielen 


Serielle Schnittstellen beim Apple IIc 


Testberichte: 
Video-1000-Interface 
Star-Drucker SG-15 
Prometric 
Microbuffer-Karte 
Mockingboard 

Write Choice 

Ampersoft 
FSS-280-Disk-Subsystem 


Peeker-Sammeldisk #12 vos s.: ter 1285) 


COSMO CRUMBLE 

T.CC2 

T.CC3 

T.CC4 

T.CC5 

T.CC6 

T.CC8 

cC2 

cC3 

cc4 

CC5 

CC6 

CC7 

CcC8 

CC.LEVELS 

(1) Reaktionsspiel für Tastatur oder 
Joystick; (2) Heft 12/85, S. 6; (3) 
II+, Ile oder Iic; wahlweise Joy- 
stick; (4) DOS 3.3; (5) RUN COS- 
MO CRUMBLE 


IW.DEMO 

T.IW.IN 

IW.IN 

T.IW.OUT 

IW.OUT 

ECHO 

(1) Initialisierung des Imagewriters 
durch mit IW.DEMO generierbare, 
BRUN-fähige Steuer-Sequenz- 


Inserentenverzeichnis Peeker 12/85 


aaa electronic gmbh, Freiburg . 


Abacomp, Frankfurt 


AFC Computer GmbH, Köln 

Appleland Walliser & Co., Heilbronn . 
Brainware, Wiesbaden 

ccp-datentechnik, Hamburg . 

D.O.S. Computersysteme, Sehwabiseh Hall 
Electronic Spezial Service GmbH, Giessen 
Frank & Britting GmbH, Forst 
Ingenieurbüro Fricke, Berlin . 

Interkom electronic, Isernhagen 

Intus, Waldshut-Tiengen . 

Jeschke, Kelkheim . 

MCI GmbH, Bergisch Gladbach 

Micromint Computer GmbH, Erkrath . 

U. Mohwinkel Electronic, Leverkusen 
OKIDATA GmbH, Düsseldorf 


Pandabooks, Berlin 
Pandasoft, Berlin 


SCS Sander, Remscheid 

Dipl.-Ing. R. Springmann, Hannover . 
Summagraphics, München 
Tewi-Verlag, München 

Ueding electronics, Menden 


Programme; (2) Heft 12/85, S. 12; 
(3) Ile oder Ilc (II+ mit Einschrän- 
kungen, wegen der Tastatur); Im- 
agewriter (beim |le mit Super-Se- 
rial-Card); (4) DOS 3.3 oder Pro- 
DOS; (5) RUN IW.DEMO 


ASCIIEDITOR 
COPY.TEXT.DEMO 
T.COPY.TEXT 
COPY.TEXT 
ASCI.CODES 
(1) Erstellung eines eigenen Zei- 
chensatzes; Kopieren des 40-Z/Z- 
Text-Bildschirms in den HGR-Be- 
reich; (2) Heft 12/85, S. 16; (3) 
speziell II+, aber auch Ile oder IIc 
mit Einschränkungen; (4) DOS 
‚3; (5) RUN ASCII.EDITOR; RUN 
COPY.TEXT.DEMO; (6) Nach 
FLASH werden Großbuchstaben 
auf dem HGR-Bildschirm als Klein- 
buchstaben ausgegeben 


GETTEXT.DEMO 

T.GETTEXT 

GETTEXT 

GETTEXT.PRODOS 

(1) Hilfsprogramm zur Erweiterung 
des Tastatur-INPUT-Befehls durch 


Editierfunktionen; (2) Heft 12/85, 
S. 20; (3) II+, Ile oder Ilc (40 und 
80 Z/Z, auch Videx); (4) DOS 3.3 
(GETTEXT) oder ProDOS mit BA- 
SIC.,SYSTEM 1.0 (GETTEXT.PRO- 
DOS); (5) RUN GETTEXT.DEMO; 
(6) für Videx und ProDOS leichte 
Anpassung von GETTEXT.DEMO 
erforderlich, s. Heft 


RAMDISK.PAS 

(1) Installierung einer CP/M-56K- 
RAM-Disk unter Turbo-Pascal; (2) 
Heft 12/85, S. 62; (3) Ile mit 64K- 
Karte; (4) CP/M 2.20 56K; Turbo- 
Pascal 2.0 oder 3.0; (5) RAMDISK 
(unter CP/M, nach Konvertierung 
mit APDOS und Compilieren auf 
Diskette); (6) entspricht der RAM- 
Disk aus Heft 6/1985, S. 55 


JAHRESINHALT 
STICHWORT.SUCHER 
STICHWORT.SUCHER.OBJ 

(1) Jahresinhaltsverzeichnis als bi- 
näre Textdatei mit Programm zur 
Suche von Stichwörtern; (2) Heft 
12183, 5.72. S).lI#, lie oder IE: 
40 und 80 Z/Z (auch Videx); (4) 
DOS 3.3; oder ProDOS (5) RUN 
STICHWORT. SUCHER 


49 
49 
19 
49 
19 
63 
49 
Be 
US 
49 
23 
71 
29 
29 
A 
49 
2.US 
> 
of 
11 
23 
19 
6/ 
13 





Peeker 12/85 


Nr. 11/85 Novamber 


Eu LE Be LE Da, Le Be a 



















MAGAZIN FÜR APPLE-COMPUTER 
Trickfilmgrafik 
Plakstdruck 
640K-ProDOS 
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Bestellcounon 


Ich habe den neuen Abonnenten geworben und er- 
halte kostenlos den Disk-Locher. 


Name, Vorname 
Straße, Postfach 
PLZ, Ort 


Datum, Unterschrift 


»peeker« bietet Ihnen was! 


Wer jetzt schenkt hat mehr von seinem Apple. 
Dafür schenkt »peeker« Ihnen etwas: Den prakti- 


schen Disk-Locher, der die Speicherkapazität Ihrer 
Disketten verdoppelt! 


Sie wissen ja, wie gut der »peeker« Ihnen im täg- 
lichen Umgang mit Ihrem Apple behilflich ist. Und 
Sie brauchen Ihren »peeker« nicht mehr zu teilen 


oder auszuleihen. 


Der blaue Disketten-Locher ist unser Geschenk an 


haben. 


Fr 


Ich bin der neue Abonnent. Bitte liefern Sie mir bis 
auf Widerruf, zumindest aber für 1 Jahr, »peeker« 
zum Jahresbezugspreis von DM 72,- (Ausland plus 
DM 18,- Porto) an folgende Anschrift: 


Name, Vorname 
Straße, Postfach 
PIIZ, Orten ge pen ar ee 


Datum, Unterschrift 


Gewünschte Zahlungsweise 
U) gegen Rechnung 
U) bargeldlos durch Bankeinzug 


Konto-Nr. Bankleitzahl 


Geldinstitut 

Vertrauensgarantie: 

Diese Bestellung kann ich innerhalb einer Woche 
bei Dr. Alfred Hüthig Verlag GmbH, Im Weiher 10, 
6900 Heidelberg 1 widerrufen. Zur Wahrung der 
Frist genügt die rechtzeitige Absendung. Ich be- 
stätige die Kenntnisnahme mit meiner Unterschrift: 


2 Unterschrift 


wer einen Apple hat, 


Sie für einen neuen »peeker«-Abonnenten. Denn 
der soll auch seinen »peeker« 


peeker 12/85 


Coupon ausschneiden und 


einsenden an: 


»peeker« 


Abonnementservice 


Im Weiher 10 
6900 Heidelberg 1 


io) 


Hüthig 


PUBLIKATION 
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MIEGA-COMRIE 


laßt keine Wünsche offen: 


@ 10 Megabytes in Ihrem Apple 
® 4 Betriebssysteme im Zugriff 
® Superstarkes Netzteil mit Kühlung 


MEGA-CORE macht durch Einbau eines 10 MB 
Festplattenlaufwerks Ihren Apple //e zu einemXT. Let TA TTELIEH REN: 


‚MEG A-COF besteht aus: ME GA- co E macht Ihren Apple "KANK & BRII IN U i a3 
3 1/2" Fe Alle EN | zum a aıtaya NS m Ei er ü Ken I vick H ungs Gr mb IH L | N 
tarddis ar auf einer S ZERBENE 5 Fa des Betriebes aystem bOotel vonder latte 'Langestr 4 Posttac 7528 Forst 


e - 70W Netzteil awt. Platte 7 saWf.Appe)  - Alle Betriobssysteme gleichen au et DD—— Telefon: 07251/103068 
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5 = ie ab systeme auf de F > Br m. for ın‘ } an BörB 
- Lüfter zur Kühlung des Rechners Plate bei exttem sc) ale Zu A | NR Telex 7822452 Au de 
- Software zur Anpassung von vier Betriebs- - Die ganzen 10 MB sind frei konfigurierbar F : e ! 
systemen, DOS, CP /M, PASCAL u.ProDOS Die Harddiskcontröller-Spezialisten 
- Ausführliches deütsches Handbuch 


MEGA-CORE kostet 4.560,— DM inkl. MwSt. beim örtlichen Fachhandel 


